*) program 78; var i, m,k:integer:
constar array 1.17) of integer - (-17,
-3, -6,0, 1, 2);
begin
3:0 0; :-)
for 1:-1 to 2 do
begin
If a[i]>0 then : m:=m+1;
IF a[i]<0 then n:=n+1;
If a[i]=0 then : k:=k+1
and:
Writeln (m= m
End

tsts84    1   06.12.2020 16:14    4