Составте программу позволяющую подсчитать в массиве число положительных и нулевых...

Question

Составте программу позволяющую подсчитать в массиве число положительных и нулевых элементов

Answer 1

Program rok;

var a:array [1..30] of integer;

 i,s,n:integer;

 begin

 s:=0;

 n:=0;

 randomize;

 

 for i:=1 to 30 do begin

 a[i]:=random (25)-10;

 write(a[i],' ');

 end;

  writeln;

 

  for i:=1 to 20 do begin

  if (a[i]>0) then s:=s+1;

  if (a[i]=0) then n:=n+1;

  end;

 writeln ('Количество положительных чисел=',s);

  writeln ('Количество нулей=',n);

 end.