Предмет: Информатика,
автор: lyudmilaloktev
Помогите пожалуйста решить !!!! дан двумерный массив размерности m*n. поменять местами строку с минимальной суммой элементов строки с (n-2)-ой строчкой массива.
Ответы
Автор ответа:
0
Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);End.
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);End.
Похожие вопросы
Предмет: Химия,
автор: qcapek
Предмет: Математика,
автор: karinasahmatova081
Предмет: Химия,
автор: spb1139936
Предмет: Физика,
автор: юбка
Предмет: Алгебра,
автор: BlooDkr4