Задана целочисленная квадратная матрица порядка 4. из этой матрицы выбрать столбец, который обладает наибольшей суммой модулей элементов. если таких столбцов несколько, то взять первый из них. далее в данном столбце найти наименьшее из значений его паскаль
Ответы на вопрос:
ответ:
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.
Популярно: Информатика
-
azatnacu02.06.2023 07:47
-
16вопрос31.08.2021 03:07
-
Август22831.03.2020 02:15
-
228581106.05.2022 17:01
-
мария238220.04.2020 11:59
-
ДмитрийJ11.11.2020 15:13
-
medniabdulkadyrova1610.03.2021 18:18
-
jcyueurur14.11.2020 00:24
-
Aldiyar2620.08.2022 19:54
-
operovist15.03.2020 12:22