Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10
Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы