Дан m(30). найти сумму элементов, больше 75. Все элементы введены с клавиатуры. (На Паскале)

Question

Дан m(30). найти сумму элементов, больше 75. Все элементы введены с клавиатуры. (На Паскале)

Экономика

Гость

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

Accepted Answer

var m:array[1..30] of integer;var i, sum:integer;beginsum:=0;for i:=1 to 30 dobeginm[i]:=random(30001);write(m[i]+' ');if(m[i]>75) then sum+=m[i];end;writeln('');write(sum);end.