Задача на Pascal. Имеется целочисленный массив A[1..N] в котором целые числа. Необходимо найти сумму всех положительных чисел и вывести их на экран.
Дан линейный массив A[1..N], содержащий целые числа. Посчитать сумму положительных чисел и распечатать номера таких чисел.
const N=20; var a:array[1...N] of integer; s,i:integer; begin for i:=1 to N do begin write ('A='); read (a[i]); end; s:=0; for i:=1 to N do begin if a>0 then begin s:=s+a; write (i); end; end; write (s); end.