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

Question

Эрнеста

22 сентября, 23:30

+2

Ответы (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.