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

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]gt;0) then s:=s+1;

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

  end;

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

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

 end.