Question

Найти все двузначные числа. в записи которых есть цифра 5(Через цикл с параметром)

Answer 1

Const n=15;
var a:array[1..n]of integer;
i,b:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i] div 10=5) then
write(a[i],' ');
end;
writeln;
end.