Неверен b). IP-адрес должен содержать четыре октета, т.е. четыре числа а диапазоне 0-255, разделенных тремя точками. Неверен с). Первый октет превышает 255. Неверен d) Третий октет превышает 255. Неверен e) Четвертый октет превышает 255
Const n=3; m=4; var a:array[1..n,1..m] of integer; b:array[1..n*m] of integer; i,j,k:integer; sr:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; sr:=0; for i:=1 to n do for j:=1 to m do sr:=sr+a[i,j]; sr:=sr/(n*m); writeln('sr = ',sr); k:=0; for i:=1 to n do for j:=1 to m do if a[i,j]<sr then begin k:=k+1; b[k]:=a[i,j]; end; writeln('Полученный массив:'); for i:=1 to k do write(b[i]:4); writeln; end.
Неверен с). Первый октет превышает 255.
Неверен d) Третий октет превышает 255.
Неверен e) Четвертый октет превышает 255
Поэтому допустимый IP-адрес только a)