Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10

Question

Информатика

Юлиания

10 апреля, 20:21

Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10

+3

Ответы (1)

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

Евстигней · Answer 1

Var

i, s:integer;

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

begin

randomize;

for i:=1 to 15 do

begin a[i]:=random (21) ;

write (a[i],' ') ;

if a[i]<=10 then s:=s+a[i]

end;

writeln ('Сумма ', s)

end.