Program n1;
Uses CRT;
Const n=15;
Var A: array[1..n] of integer; B: array[1..n] of integer;
i,k,max: integer;
begin
randomize;
clrscr;
Writeln('ishodny massiv');
For i:=1 to n do
begin
a[i]:=random(100);
a[i]:=a[i]-50;
write(a[i]:4);
end;
writeln;
writeln('polychenny massiv');
max:=0;
For i:=1 to n do
begin
b[i]:=-a[i];
write(b[i]:4);
If a[i]=b[i] then k:=k+1;
If (b[i]>0)and(b[i]>max) then max:=b[i];
If (b[i]<0)and(-b[i]>max) then max:=-b[i];
end;
writeln;
Writeln('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max);
writeln
end.
Шестнадцатеричные цифры: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A (10), B (11), C (12), D (13), E (14), F(15).
– По условию цифры не превосходят 6, тогда поразрядные суммы не превосходят 6 + 6 = C. Отвергаем вариант 1: в нем появилось F.
– Поразрядные суммы, как следует из предыдущего наблюдения, записываются одной цифрой. Поэтому не подходит вариант 2, в котором 3 цифры.
– Цифры в результате должны идти в порядке возрастания, чего нет в варианте 4, 7 > 6.
Остаётся единственный вариант: 3) 8B. Он получится, например, если исходные числа равны 35 и 56
var a:array [ 1..1000, 1..1000] of longint;
i, j, m, n, max, kol: longint;
begin
writeln ( ' vvedite razmeri matrici (MxN)' );
readln ( m,n );
for i:=1 to m do
begin
for j:=1 to n do
begin
writeln (' vvedite element matrici' i,'x',j );
readln ( a [ i,j] );
end;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
if a [ i,j ] > max then
max:=a [ x, j ];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
if a [ i,j ]= max then
inc ( kol );
end;
end;
writeln (' max= ', max,', vstrechaetsya', kol,' raz.');
end.