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

259

382

Посмотреть ответы 2

Ответы на вопрос:

тяпница13

Информатика

4,5(65 оценок)

Program b1; var m: array[1..40]of integer; i: integer; s: integer; begin for i: =1 to 40 do begin m[i]: =random(21); begin if m[i]< =10 then s: =s+m[i]; end; end; writeln('massiv='); for i: =1 to 40 do write(m[i]: 4); writeln('сумма чисел не превышающих 10=',s); readln; end.

АвторУлыбки

Информатика

4,4(3 оценок)

Var rost : array[1..100] of integer; n, i, k: integer; begin writeln('введите общее количество участников'); readln(n); for i: =1 to n do read(rost[i]); for i: =1 to n do if (rost[i] > =180) then inc(k); writeln(k); end.пример входных данных3179 180 194выходные данные2