Вариант 1.
1. Дан линейный массив 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.