С клавиатуры ввести 10 целых чисел и вывести в строку все числа больше 5

Question

С клавиатуры ввести 10 целых чисел и вывести в строку все числа больше 5

Answer 1

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;

begin
n:=10;
write('Введите элементы: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
for i:=1 to N do
if (a[i]>=5) then
write(a[i],' ');
end.