
Дана Матрица А(5,5). 1. Найти сумму S отрицательных элементов расположенных на побочной диагонали.
2. Найти наибольший элемент 2-го столбца. 3. Заменить найденные максимальный элемент во 2-м столбце на значение суммы S

Ответы на вопрос

var a:array [1..n,1..n] of Integer;
i,max,ind,s,j:integer;
begin
s:=0;
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
j:=6;
for i:=1 to n do
begin
Dec(j);
if a[i,j]<0 then
s:=s+a[i,j];
end;
max:=a[1,2];
ind:=1;
for i:=1 to n do
if Abs(a[i,2])>Abs(max) then
begin
max:=a[i,2];
ind:=i;
end;
a[ind,2]:=s;
Writeln;
Writeln;
Writeln('a)Summ: ',s);
writeln('b)Max: ',max);
Writeln;
Writeln('c)');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.




Для решения задачи, нам необходимо посчитать сумму отрицательных элементов, расположенных на побочной диагонали, найти наибольший элемент во втором столбце и заменить его на значение суммы.
1. Найти сумму s отрицательных элементов, расположенных на побочной диагонали:
Для этого нужно просуммировать элементы, находящиеся на индексах (i, n-1-i), где n - размер матрицы (в данном случае 5).
s = 0 # инициализируем сумму for i in range(5): if A[i][4-i] < 0: # проверяем, является ли элемент отрицательным s += A[i][4-i] # добавляем отрицательный элемент к сумме
2. Найти наибольший элемент во втором столбце:
Для этого нужно пройти по всем элементам второго столбца и найти максимальное значение.
max_element = A[0][1] # инициализируем максимальный элемент значением первого элемента for i in range(5): if A[i][1] > max_element: # сравниваем текущий элемент со значением максимального элемента max_element = A[i][1] # обновляем максимальный элемент, если находим больший
3. Заменить найденный максимальный элемент во втором столбце на значение суммы s:
A[max_index][1] = s # заменяем значение на сумму s, где max_index - индекс строки с максимальным элементом
Теперь в матрице А значение суммы отрицательных элементов на побочной диагонали будет заменено на максимальный элемент во втором столбце.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili