Напишите программу для вычисления суммы положительных элементов массива целых чисел А(n)

Question

Напишите программу для вычисления суммы положительных элементов массива целых чисел А(n)

Answer 1

Готово, даже удалось избежать создания самого массива)

Comments

Вот код, на всякий случай:

---

Program Summa;
var
n, i, a, s: integer;
Begin

//Ввод длины массива
write('Кол-во элементов в массиве -> ');
readln(n);

//Считываем вводимые элементы и сразу проверяем их на положительность
s := 0; i := 0;
for i := 1 to n do
begin
write('A(', i, ') = ');
readln(a);
if (a > 0) then
s := s + a;
end;

//Вывод ответа
write('Сумма положительных элементов массива: ', s, '.');

End.