Предмет: Информатика,
автор: 123zxc123
составьте программу которая формирует массив из 40 случайных целых чисел то 0 до 20 и вычисляет сумму чисел не привышающих 10
Ответы
Автор ответа:
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
sum:= sum + a[i]
end;
writeln (sum);
end.
Интересные вопросы
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: gelentvagenaye
Предмет: Русский язык,
автор: atoleubai
Предмет: Химия,
автор: alenacola
Предмет: Математика,
автор: Несмиянов