Найти наибольший элемент матрицы и его индексы - Pascal (9877)
Формулировка задачи:
Дана действительная матрица размера 4 на N. Найти значение наибольшего по модулю элемента, а так же индексы этого элемента.
Решение задачи: «Найти наибольший элемент матрицы и его индексы»
textual
Листинг программы
uses crt;
const
n = 6;
var
a: array[1..4,1..n] of integer;
i,j,max,o,p: integer;
begin
randomize;
for i:= 1 to 4 do
for j:= 1 to n do
a[i,j]:= random(20)-8;
for i:= 1 to 4 do begin
writeln;
for j:= 1 to n do
write(a[i,j]:3);
end;
for i:= 1 to 4 do
for j:= 1 to n do begin
if abs(a[i,j]) > max then
max:= abs(a[i,j]);
end;
for i:= 1 to 4 do
for j:= 1 to n do begin
if (a[i,j] = max) then begin
writeln;
writeln('maks element = ',max,' ego rasspolozhenie - [',i,',',j,']');
end;
end;
end.