Задан массив из 9 целых чисел. Вывести на экран элементы, которые больше 15.

Question

Информатика

Серапион

5 мая, 13:22

Задан массив из 9 целых чисел. Вывести на экран элементы, которые больше 15.

+3

Ответы (1)

Знаете ответ на вопрос?

Лукаша · Answer 1

Program Mas;

Var a:array[1 ... 100] of integer;

i, n: integer;

Begin randomize;

writeln ('Введите размерность массива', n) ;

readln (n) ;

for i:=1 to n do

a[i]:=random (45) - 1; readln;

for i:=1 to n do

begin if a[i]>15 then

write (' ', a[i]) ;

end;

readln;

End.