Top.Mail.Ru
Ответы

PASCAL. Нужно найти минимальный элемент матрицы. нашел. Как найти индексы?

program variant3;
var
a:array[1..10,1..5] of integer;
i,j,n,k,min,nmin:integer;
begin
readln(n,k);
for i:=1 to n do
for j:=1 to k do begin
writeln('a(',i,';',j,')=');
readln(a[i,j]);
end;
min:=a[1,1];
nmin:= ???
for i:=1 to n do
for j:=1 to k do begin
if a[i,j]<min>nmin:=????
end;
writeln ('MIN=',min,'nmin=',nmin);
end.

Дополнен

ГЛЮКИ:
program variant3;
var
a:array[1..10,1..5] of integer;
i,j,n,k,min,nmin:integer;
begin
readln(n,k);
for i:=1 to n do
for j:=1 to k do begin
writeln('a(',i,';',j,')=');
readln(a[i,j]);
end;
min:=a[1,1];
nmin:= ???
for i:=1 to n do
for j:=1 to k do begin
if a[i,j]

По дате
По рейтингу
Аватар пользователя
Новичок
15лет

Доброго времени суток.

Ищите только индексы. По индексам всегда отобразите сам минимальный элемент

MinI := 1;
MinJ := 1;
for i:=1 to n do
for j:=1 to k do
if a[i,j] < a[MinI,MinJ] then begin
MinI := i;
MinJ := j;
end;
{индексы нашли}
WriteLn(A[MinI, MinJ]); {а так показываем минимальный элемент}

Удачи!

Аватар пользователя
Профи
15лет

Собственно Геннадий напомнил студенчество, и соответственно простейшее решение задачи :) с приведёнными требованиями

program variant3;
Var
i,j, IndexI,IndexJ,MinI,MinJ:integer;
x,y:real;{необходимый тип}
begin
y:=1,8e38;{наибольшее возможное число для данного типа}
write('Число столбцов=');
readln(IndexJ);
write('Число строк=');
readln(IndexI);
write('Элемент [',i,';',j']=');
readln(x);
for i:=1 to IndexI do
for i:=1 to IndexI do
if x