const
n = 10;
m = 20;
var
A : array [ 1..n, 1..m ] of integer;
function func(var im : integer;var jm : integer) : integer;
var
i,j : integer; { Счетчики }
sum : integer;
begin
im:=1;
jm:=1;
{ находим максимум }
for i:=1 to n do
for j:=1 to m do
if A[i,j] > A[im,jm] then begin
im:=i;
jm:=j;
end;
{ находим сумму }
sum:=0;
for i:=1 to n do
sum:=sum + A[i,jm];
for j:=1 to n do
sum:=sum + A[im,j];
func:=sum;
end;
var
im,jm : integer;
sum : integer;
begin
{ Ввводим матрицу(Сделаешь самостоятельно) }
{ Вызываем функцию }
sum:=func(im,jm);
{ выводим результат }
WriteLn('Максимум: A[', im, ',', jm, '] = ', A[im,jm], ' Сумма: ', sum);
end.
Cумма элементов строки и столбца матрицы(Pascal)
Зы завтро надо сдать 4 лабы по паскалю если кто-то делал похожие или такие же плз помогите может у вас остались исходники просто очень надо.
Дана прямоугольная матрица A(n,m). Найти сумму элементов строки и столбца, на пересечении которых расположен максимальный элемент матрицы A. Нахождение номера строки и столбца, на пересечении которых находится максимальный элемент матрицы A, оформить в виде подпрограммы.
[COLOR="Red"]Нарушение пункта 10 Правил раздела Студентам.одна тема - одна задача.Лишнее удалил.Неверное название темы.[/COLOR]модератор.
Дана прямоугольная матрица A(n,m). Найти сумму элементов строки и столбца, на пересечении которых расположен максимальный элемент матрицы A. Нахождение номера строки и столбца, на пересечении которых находится максимальный элемент матрицы A, оформить в виде подпрограммы.
[COLOR="Red"]Нарушение пункта 10 Правил раздела Студентам.одна тема - одна задача.Лишнее удалил.Неверное название темы.[/COLOR]модератор.