Сложить все числа массива больше 30Памагити, очень необходимо(Дам 30 баллов)

Сложить все числа массива больше 30
Памагити, очень нужно
(Дам 30 баллов)

Задать свой вопрос
2 ответа

const n=10;

var a: array[1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:3,' ');

if a[i]gt;30 then s:=s+a[i]

end;

writeln;

writeln ('Сумма чисел больше 30 одинакова ',s)

end.

Задание не до конца сообразил,но вроде бы отыскать сумму чисел больше 30.

30+40+50+60+25=70+110+25=180+25=205

Не за что
Тамара Лунышева
Прости конечно, но это в паскали надо сделать
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт