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

Составьте программу, которая формирует массив из 40 случайных целых чисели от 0 до 20 и вычисляет сумму чисел не превышающих 10
Гость
Ответ(ы) на вопрос:
Гость
Вот на паскале var i,s:integer;a:array[1..40] of integer;beginfor i:=1 to 40 dobegina[i]:=random(20);write(a[i]:3);if a[i]<10 then s+=a[i];end;writeln('');writeln('----------------------------------------');write('Сумма элементов не превыщающих 10 >>> ',s);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы