Заполнить массив А, состоящий из 35 элементов, случайными числами в отрезке [–40;200]. Определить верно ли, что сумма элементов, которые больше 20, превышает 100.

program z1;

var a : array [1..35] of integer;

i, s: integer;

begin

write ('Массив: ');

s:=0;

randomize;

for i:=1 to 35 do

begin

a[i]:=random (241)-40;

write(a[i],' ');

if a[i]>20 then s:=s+a[i]

end;

writeln;

if s>100 then write('Верно, что сумма элементов, которые больше 20, превышает 100 (s = ',s,')')

else write('Неверно, что сумма элементов, которые больше 20, превышает 100 (s = ',s,')')

end.

Объяснение:

Действия в цикле:

1) Присваивание значения элементу с функции random

2) Вывод элемента на экран

3) Если элемент больше 20, то увеличиваем значение переменной s на значение элемента

Если переменная s больше 100, то выводим: Верно, иначе: Неверно