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

0 голосов
44 просмотров

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


Информатика (12 баллов) | 44 просмотров
Дан 1 ответ
0 голосов

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</p>

sum:= sum + a[i]

end;

writeln (sum);

end.

(923 баллов)