Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу ввода массива s [1..8] с клавиатуры и вывода элементов больше 5.

Ответ оставил Гость

var a : array [1..8] of byte;
begin  for var i := 1 to 8 do begin
    write(i, :); readln(a[i]);
  end;
  for var i := 1 to 8 do
    if a[i] > 5 then writeln(a[i]);
end.