Question

дан одномерный массив.вывести на экран числа >5

Answer 1

var
  A: array [1..20] of integer;
  i: byte;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 20 do
begin
  A[i] := random(40)-10;
  write(A[i], ' ');
end;
writeln;
writeln('Элементы > 5');
for i := 1 to 20 do
begin
  if A[i] > 5 then write(A[i], ' ');
end;
end.