Вариант 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.