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

Question

Информатика

Антонка

24 октября, 05:56

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

+2

Ответы (1)

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

Любовь · Answer 1

var

a: array[1 ... 40] of integer;

i, sum: integer;

begin

sum : = 0;

for i:=1 to 40 do

begin

a[i]: = random (21) ;

if a[i] < = 10

sum: = sum + a[i]

end;

writeln (sum) ;

end.