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

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;<br>    if (a[i]>0) then m:=m+1;
    if (a[i]=0) then n:=n+1;
  end;
  writeln('отрицательных: ', k);
  writeln('положительных: ', m);
  writeln('нулевых: ',n);
end.

Answer 2

Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22   var a:array[1..10]ofinteger; i,p,o,n:byte; beginfor i:=1to10dobeginwrite('Введите ',i,' число: '); readln(a[i]); end; for i:=1to10dobeginif(a[i] > 0)then inc(p)elseif(a[i] < 0)then inc (o)else inc(n); end; writeln('Количество положительных элементов = ',p); writeln('Количество отрицательных элементов = ',o); writeln('Количество нулевых элементов = ',n); end.