Имеется одномерный массив содержащий числа от - 20 до 20 требуется найти все элементы значения которых больше 15

Question

Информатика

Сергейка

30 мая, 02:36

Имеется одномерный массив содержащий числа от - 20 до 20 требуется найти все элементы значения которых больше 15

+1

Ответы (1)

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

Мишаня · Answer 1

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

i:integer;

begin

for i:=1 to 20 do begin

a[i]:=random (41) - 20;

if a[i]>15 then write (a[i],' ') ;

end;

end.