Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.