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

Question

Информатика

Киприан

6 марта, 09:58

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

+1

Ответы (1)

Знаешь ответ?

Павлюка · 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.