Нужно решить в сделать простенько, чтобы даже я понял)
: в матрице найти сумму элементов строки и столбца, на пересечении которых расположен максимальный элемент матрицы , и заменить найденный максимум на вычисленное значение суммы.
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
const
n = 3;
m = 4;
var
matrix: array[1..n, 1..m] of integer;
max, max_i, max_j, i, j: integer;
sum: integer;
begin
writeln('введите массив ',n, '*', m, ' элементов: ');
for i : = 1 to n do
for j : = 1 to m do
read(matrix[i,j]);
max : = matrix[1,1];
for i : = 1 to n do
for j : = 1 to m do
if (max < matrix[i,j]) then
begin
max : = matrix[i,j];
max_i : = i;
max_j : = j;
end;
sum : = 0;
for i : = 1 to n do
sum : = sum + matrix[i, max_j];
for j : = 1 to m do
sum : = sum + matrix[max_i, j];
matrix[max_i, max_j] : = sum;
writeln('получившийся массив: ');
for i : = 1 to n do
begin
for j : = 1 to m do
write(matrix[i,j], ' ');
writeln();
end;
end.
пример:
введите массив 3*4 элементов:
1 2 3 4
55 6 7 8
9 10 11 12
получившийся массив:
1 2 3 4
141 6 7 8
9 10 11 12