Вопрос № 183660: Здравствуйте! У меня возникли сложности с таким вопросом: нужно создать массив размером N на M, компоненты которого являются случайными целыми числами от 0 до 50, и найти наибольший элемент массива. Вывести массив и наибольший элемент с поясняющим...
Вопрос № 183660:
Здравствуйте! У меня возникли сложности с таким вопросом: нужно создать массив размером N на M, компоненты которого являются случайными целыми числами от 0 до 50, и найти наибольший элемент массива. Вывести массив и наибольший элемент с поясняющим текстом.
program P_183660;
const
{ Размерность массива }
N=3;
M=7;
{ Заполняем значениями от 0 до MAX }
MAX=50;
type
TMatrix=array[1..N,1..M]of Integer; { Тип - массив }
var
Matrix:TMatrix; { Матрица }
I,J,Row,Col:Integer;
begin
Randomize;
WriteLn('Создаем массив ',N,'x',M,' элементов:');
{ Заполняем матрицу и выводим ее }
for I:=1 to N do begin
for J:=1 to M do begin
Matrix[I][J]:=Random(MAX);
Write(Matrix[I][J]:3,' ');
end;
WriteLn;
end;
{ Поиск максимального }
Row:=1; Col:=1;
for I:=1 to N do begin
for J:=1 to M do begin
if Matrix[I][J]>Matrix[Row][Col] then begin
Row:=I;
Col:=J;
end;
end;
end;
WriteLn('Максимальный элемент [',Row,'][',Col,']:',Matrix[Row][Col]);
ReadLn;
end.
program P_183660;
const
{ Заполняем значениями от 0 до MAX }
MAX=50;
type
TMatrix=array of array of Integer; { Тип - массив }
var
Matrix:TMatrix; { Матрица }
I,J,Row,Col,N,M:Integer;
begin
Randomize;
Write('N='); ReadLn(N);
Write('M='); ReadLn(M);
WriteLn('Создаем массив ',N,'x',M,' элементов:');
SetLength(Matrix,N,M);
{ Заполняем матрицу и выводим ее }
for I:=0 to N-1 do begin
for J:=0 to M-1 do begin
Matrix[I][J]:=Random(MAX);
Write(Matrix[I][J]:3,' ');
end;
WriteLn;
end;
{ Поиск максимального }
Row:=0; Col:=0;
for I:=0 to N-1 do begin
for J:=0 to M-1 do begin
if Matrix[I][J]>Matrix[Row][Col] then begin
Row:=I;
Col:=J;
end;
end;
end;
WriteLn('Максимальный элемент [',Row+1,'][',Col+1,']:',Matrix[Row][Col]);
ReadLn;
end.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.