*) program 78; var i, m,k:integer: constar array 1.17) - вопрос №78117173601215390264 от baha2001zzz 18.09.2021 05:28

Question

Информатика: *) 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

baha2001zzz · Answer

i       1   2   3   4   5   6   7a[i]  -1   7   3  -6   0   1   2i=1 n=0 m=1 k=0i=2 n=1 m=1 k=0i=3 n=1 m=2 k=0i=4 n=1 m=3 k=0i=5 n=1 m=3 k=1i=6 n=2 m=3 k=1i=7 n=3 m=3 k=1m=3 n=3 k=1...

*) 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

*) 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