Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, не превышающих 10

Question

Информатика

Веста

10 февраля, 06:48

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, не превышающих 10

+5

Ответы (1)

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

Магдалина · Answer 1

program pr;

var mas:array[1 ... 40] of integer;

i, sum:integer;

begin

randomize;

for i:=1 to 40 do mas[i]:=random (20) ;

for i:=1 to 40 do if mas[i]<=10 then sum:=sum+mas[i];

writeln ('сумма равна ', sum) ;

readln;

end.

Программу проверил все работает