Question

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

Answer 1

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

ece56ea8af3e20ef1b317b06e8b7e43d.pas

Answer 2

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

Answer 3

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.