Apple019
08.08.2022 01:55

Подскажите, составить программу вычесления: суммы всех положительных элементов массива. буду .

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
PamPam98
14.06.2020 06:07

var

a:array[1..1000]of integer;

i,sum:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do begin

read(a[i]);

inc(sum,a[i]);

end;

writeln(sum);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота