Дана прямоугольная матрица. Найти строку с наибольшей и строку с наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.
135
407
Ответы на вопрос:
Program matrix;
USES Crt;
Var a: array[1..20, 1..20] of integer;
n,S,i,j,k,mins, maxs, mini, maxi, t : integer;
Begin
ClrScr;
Write('Vvedite kolichestvo strok n= ');
Readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('a(',i,',',j,')= ');
Readln(a[i,j]);
end;
clrscr;
Writeln('Matrica a');
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j],' ',' ');
Writeln;
end;
mins:=0;
for j:=1 to n do
mins:= mins+a[1,j];{summa v str 1, poka=min}
maxs:= mins;
mini:= 1;
maxi:= 1;
for i:=1 to n do
begin
t:=0;
for j:=1 to n do
t:= t+ a[i,j];
if (t>maxs) then
begin
maxs:= t;
maxi:= i;
end;
if (t<mins) then
begin
mins:= t;
mini:= i;
end;
end;
writeln ('Max summ = ', maxs, ' ctroka ', maxi);
for j:=1 to n do
write(a[maxi,j],' ');
writeln;
writeln;
writeln ('Min summ = ', mins, ' ctroka ', mini);
for j:=1 to n do
write(a[mini,j],' ');
Readln;
end.
USES Crt;
Var a: array[1..20, 1..20] of integer;
n,S,i,j,k,mins, maxs, mini, maxi, t : integer;
Begin
ClrScr;
Write('Vvedite kolichestvo strok n= ');
Readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('a(',i,',',j,')= ');
Readln(a[i,j]);
end;
clrscr;
Writeln('Matrica a');
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j],' ',' ');
Writeln;
end;
mins:=0;
for j:=1 to n do
mins:= mins+a[1,j];{summa v str 1, poka=min}
maxs:= mins;
mini:= 1;
maxi:= 1;
for i:=1 to n do
begin
t:=0;
for j:=1 to n do
t:= t+ a[i,j];
if (t>maxs) then
begin
maxs:= t;
maxi:= i;
end;
if (t<mins) then
begin
mins:= t;
mini:= i;
end;
end;
writeln ('Max summ = ', maxs, ' ctroka ', maxi);
for j:=1 to n do
write(a[maxi,j],' ');
writeln;
writeln;
writeln ('Min summ = ', mins, ' ctroka ', mini);
for j:=1 to n do
write(a[mini,j],' ');
Readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Алёна1478бе01.06.2022 22:58
-
Liza1605200616.02.2020 21:32
-
katyaibadova23.10.2022 03:35
-
naki403.08.2021 23:46
-
lubenkovalilia202.05.2022 18:08
-
мсоь17.03.2021 05:43
-
Ізабель17.05.2020 13:30
-
timdenir6901.11.2021 09:45
-
Лизок89226.02.2023 01:47
-
Анастасия2905200331.01.2023 22:53
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.