Program n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;
for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;
writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
<span>
end. </span>
Надсистемой Земля явл.для атмосферы Земли
Надсистема для Земли:Солнечная система
IP 220.128.112.142
маска 255.255._х__. 0
адрес 220.128. 96. 0
112 (10сс) =64+32+16 =0111 0000 (2сс)
96 (10сс) =64+32 = 0110 0000 (2сс)
х= 1110 0000 (2сс) = 128+64+32=224 (10сс)
ответ 224
Текстовый файл (формата: .txt)
Инструкция
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
