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

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

Задать свой вопрос
1 ответ
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]gt;75) then sum+=m[i];end;writeln('');write(sum);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт