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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.