Matrix24◦ . Дана матрица размера M × N. В каждом столбце матрицы найти
максимальный элемент
Можно с объяснением
12keti
3
10.11.2020 20:19
0
Другие вопросы по теме Информатика
JustTkach
01.09.2019 18:00
iratupikp00q9c
01.09.2019 18:00
vladdancer
01.09.2019 18:00
kabulbekova01
07.06.2020 11:05
mashabanan15
07.06.2020 09:52
ninaschemetowa
07.06.2020 09:34
Nikcdi
13.07.2019 01:20
Рост2006
13.07.2019 01:20
Популярные вопросы
- Придумайте какие−нибудь пять бесконечных непериодических дробей (иррациональных...
1 - СЛАВЯНЕоцените физико-географическое положение Вологодской области ...
1 - Опишите карту по истории МНОГО ...
3 - (3+6і)+(-1-5і) как решить?...
3 - Какое количество теплоты необходимо, чтобы превратить в пар 500 г воды при температуре...
3 - Вычеслите и представьте в стандартном виде числа...
1 - Число 1111010 в восьмизарядном представлении имеет вид :...
3 - с выполнением двух номеров. Заранее...
2 - Правильно ли я написала? Есть ли ошибки? Если что, исправьте Добавьте от себя)...
3 - Розв яжіть рівняння:2,5х² + 2х - 0,5 = 4...
1
ответ: Delphi/Pascal
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end.