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