Question

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

Answer 1

1)
const
n=5;
var
a: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.