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