Uses CRT; Const nmax=40; mmax=40; var a,b:array[1..nmax,1..mmax] of integer; i,j,n,m:integer; begin ClrScr; repeat write('N:='); Readln(n); until n in [1..nmax]; repeat write('M:='); Readln(m); until m in [1..mmax]; writeln('Исходный массив: '); randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10)-3; write(a[i,j]:5); b[i,j]:=a[i,j]*a[i,j]*a[i,j]; end; writeln; end; writeln('Результирующий массив: '); for i:=1 to n do begin for j:=1 to m do begin write(b[i,j]:5); end; writeln; end; readkey end.
1. Перевод из десятичной с/с в двоичную с/с осуществляется таким образом: делите число на основание с/c, пока число не будет меньше основания, смотрите на остатки справа налево и записываете их, получается нужное число в двоичной с/c, то есть: 14/2 = 7, остаток 0, 7/2 = 3, остаток 1, 3/2 = 1, остаток 1, 1 < 2, остаток 1. Смотрим на остатки от деления (справа налево): 1110. Это и есть число 14 в двоичной. Запишем:
2. Перевод из восьмеричной с/с в двоичную с/с осуществляется триадами. 3 в двоичной с/c = 11, т.к. триады, то 011 (0 перед числом здесь значения не имеет), 4 в двоичной с/с = 100. Запишем: 3. ⇒ ответ:
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var a:=ArrRandom(40,-12,12).Where(x->abs(x)>=2).Take(20).ToArray; a.Sorted.Println; var sn:=abs(a.Where(x->x<0).Sum); var sp:=abs(a.Where(x->x>0).Sum); if sn>sp then Writeln('Модуль суммы отрицательных чисел больше') else if sn<sp then Writeln('Модуль суммы положительных чисел больше') else Writeln('Модули сумм положительных и отрицательных чисел равны') end.
⇒ 
CRT;
Const
nmax=40;
mmax=40;
var a,b:array[1..nmax,1..mmax] of integer;
i,j,n,m:integer;
begin
ClrScr;
repeat
write('N:=');
Readln(n);
until n in [1..nmax];
repeat
write('M:=');
Readln(m);
until m in [1..mmax];
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(10)-3;
write(a[i,j]:5);
b[i,j]:=a[i,j]*a[i,j]*a[i,j];
end;
writeln;
end;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(b[i,j]:5);
end;
writeln;
end;
readkey
end.