PascalABC.Net
begin
var (m, n) := ReadInteger2('Введите M x N');
var a := MatrRandom(m, n, -25, 19).Println;
Println('Максимальный элемент', a.ElementsByCol.Max);
end.
Введите M x N 5 5
17 -3 9 16 -10
-12 9 -8 5 4
15 -8 -12 13 8
0 -3 -13 -1 -7
3 -16 -24 -25 7
Максимальный элемент 17
Ответ:
Примечание: Программа находит первый максимальный элемент, если их несколько одинаковых.
const M = 10;
const N = 5;
var A: array [1..M,1..N] of integer;
var i,j,max,maxi,maxj: integer;
// Задаем элементы матрицы и вывдим ее на экран
randomize();
For i:= 1 to M do
For j:= 1 to N do
A[i,j]:=random(45)-25;
write(A[i,j]:4);
end;
writeln();
// Находим наибольший элемент
max:=A[1,1];
maxi:=1;
maxj:=1;
if (A[i,j]>max) then
max:=A[i,j];
maxi:=i;
maxj:=j;
writeln('Наибольший элемент массива: ',max,
', расположен в ',maxi,' строке и ',maxj,' столбце');
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.Net
begin
var (m, n) := ReadInteger2('Введите M x N');
var a := MatrRandom(m, n, -25, 19).Println;
Println('Максимальный элемент', a.ElementsByCol.Max);
end.
Введите M x N 5 5
17 -3 9 16 -10
-12 9 -8 5 4
15 -8 -12 13 8
0 -3 -13 -1 -7
3 -16 -24 -25 7
Максимальный элемент 17
Ответ:
Примечание: Программа находит первый максимальный элемент, если их несколько одинаковых.
const M = 10;
const N = 5;
var A: array [1..M,1..N] of integer;
var i,j,max,maxi,maxj: integer;
begin
// Задаем элементы матрицы и вывдим ее на экран
randomize();
For i:= 1 to M do
begin
For j:= 1 to N do
begin
A[i,j]:=random(45)-25;
write(A[i,j]:4);
end;
writeln();
end;
// Находим наибольший элемент
max:=A[1,1];
maxi:=1;
maxj:=1;
For i:= 1 to M do
begin
For j:= 1 to N do
begin
if (A[i,j]>max) then
begin
max:=A[i,j];
maxi:=i;
maxj:=j;
end;
end;
end;
writeln('Наибольший элемент массива: ',max,
', расположен в ',maxi,' строке и ',maxj,' столбце');
end.