решите одно из предложенных, умоляю
дан массив А5 найти сумму и количество положительных элементов
дан массив А5 определить количество отрицательных элементов
дан массив А6 определить количество положительных элементов

1)constn=5;vara:array[1..n]of integer;i,k,s:integer;begin   for i:=1 to n do         begin             readln(a[i]);                   if a[i]>0 then                      begin                        s:=s+a[i];                         k:=k+1ж                   end;   writeln('ARRAY:');   for i:=1 to n do       write(a[i]:4);        writeln;        writeln('S: ',S,'  k: 'k);end.