Program a8_44;
uses crt;
const m=5; n=5;
var a:array[1..m,1..n] of integer;
i,j,q,w:integer;
BEGIN
clrscr;
randomize;
writeln('Ââåäèòå ÷èñëî "n"');
readln(q);
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(9)+1;
write(a[i,j]:3);
end;
writeln;
end;
w:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=q then w:=w+1;
if w>0 then writeln('Ýëåìåíò ',q,' åñòü ñðåäè äàííûõ çíà÷åíèé!')
else writeln('Ýëåìåíòà ',q,' íåòó ñðåäè äàííûõ çíà÷åíèé!');
readln;
END.