Из фрагментов составьте ip адрес и запишите его 2.25 0.90 19 8.16

Question

Информатика: Из фрагментов составьте ip адрес и запишите его 2.25 0.90 19 8.16

RancoR1 · Accepted Answer

Const n=20; var  a,b:array[1..n] of integer; i,j,k,m,c:integer;  begin Randomize; writeln( Исходный массив: ); for i:=1 to n do  begin   a[i]:=random(51)-25;   write(a[i]:5);  end; writeln; j:=0; for i:=1 to n do  if a[i] 0 then begin j:=j+1; b[j]:=a[i]; end; m:=j; for k := 1 to m-1 do   for i := 1 to m-k do      if (b[i] b[i+1]) then         begin        c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c;        end; writeln( Вс массив: ); for i:=1 to m do write(b[i]:5); writeln; j:=0; for i:=1 to n do  if a[i]...

MOGZ ответил