var
a: array [1..10] of integer;
i : integer;
begin
randomize;
for i:=1 to 10 do A[i]:=Random(15);
for i:=1 to 10 do if A[i]=5 then
writeln('да то что надо ',A[i])
else writeln('ошибка'); readln ;
end.
var
a: array [1..10] of integer;
i : integer;
begin
randomize;
for i:=1 to 10 do A[i]:=Random(15);
for i:=1 to 10 do if A[i]=5 then
writeln('да то что надо ',A[i])
else writeln('ошибка'); readln ;
end.