ответ: Delphi/Pascal
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
writeln(i,': ');
for j:=1 to N do
Write(j,' : ');
Read(a[i,j]);
end;
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
if a[i,j]>Max then Max:=a[i,j];
writeln('Масимальный элемент:',Max);
end
end.
ответ: Delphi/Pascal
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end.
38 : 2 = 19 (0) 38₁₀ = 100110₂
19 : 2 = 9 (1)
9 : 2 = 4 (1)
4 : 2 = 2 (0)
2 : 2 = (1) (0)
0 36 0,36*2 = 0,72 0,36 ≈ 0,01011100₂
0 72 0,72*2 = 1,44
1 44 0,44*2 = 0,88
0 88 0,88*2 = 1,76
1 76 0,76*2 = 1.52
1 52 0,52*2 = 1,04
1 04 0,04*2 = 0,08
0 08 0,08*2 = 0,16
0 16 0,16*2 = 0,32
0 32
46,27₈ ≈ 100110,01011100₂
EF,12₁₆ = 14*16¹ + 15*16⁰ + 1*16⁻¹ + 2*16⁻² = 224 + 15 + 1/16 + 1/256 = 239 + 17/256 = 239,066₁₀
239 : 2 = 119 (1) 239₁₀ = 11101111₂
119 : 2 = 59 (1)
59 : 2 = 29 (1)
29 : 2 = 14 (1)
14 : 2 = 7 (0)
7 : 2 = 3 (1)
3 : 2 = (1) (1)
0 066 0,066*2 = 0,132 0,066₁₀ ≈ 0,0001000011₂
0 132 0,132*2 = 0,264
0 264 0,264*2 = 0,528
0 528 0,528*2 = 1,056
1 056 0,056*2 = 0,112
0 112 0,112*2 = 0,224
0 224 0,224*2 = 0,448
0 448 0,448*2 = 0,896
0 896 0,896*2 = 1,792
1 792 0,792*2 = 1,584
1 584
EF,12₁₆ ≈ 11101111,0001000011₂