ответ:
program array4x4;
const
d = 4; // размерность массива, можно менять на любое другое
var
a: array [1..d, 1..d] of integer;
i, j, s, smax, jmax, smin, imin: integer;
begin
randomize;
for i : = 1 to d do begin
writeln;
for j : = 1 to d do begin
a [i, j] : = random (21) - 5;
write (a [i, j] : 3, ' ');
end;
end;
smax : = 0;
jmax : = 0;
for j : = 1 to d do begin
s : = 0;
for i : = 1 to d do begin
s : = s + abs (a [i, j]);
end;
if s > smax then begin
smax : = s;
jmax : = j;
end;
end;
writeln;
writeln ('столбец № ', jmax, ' сумма модулей = ', smax);
imin : = 1;
smin : = maxint;
for i : = 1 to d do begin
if a [i, jmax] < smin then begin
smin : = a [i, jmax];
imin : = i;
end;
end;
writeln ('наименьший элемент: ', imin, ' : ', jmax, ' равен = ', smin);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Перевести число а10= 176 в двоичную, восьмеричную и шестнадцатеричную систему счисления