Question

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых

Answer 1

uses crt;
var a:array [1..10] of real;
i,k,m,n:integer;
begin
  clrscr;
  k:=0; n:=0; m:=0;
  writeln('massiv:');
  for i:=1 to 10 do
  begin
    read(a[i]);
    if (a[i]<0) then k:=k+1;
    if (a[i]>0) then m:=m+1;
    if (a[i]=0) then n:=n+1;
  end;
  writeln('отрицательных: ', k);
  writeln('положительных: ', m);
  writeln('нулевых: ',n);
end.