Добрый день !
Написал программу которая находит минимальный элемент во 2-ой и 3 колонне !
Но незнаю как вывести их индексы ! Помогите пожалуйста !
Program masssiv;
Uses CRT;
var tmp,q,j,i,k,l: integer;
A:array[1..5,1..5] of integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
A[i,j]:=Random(18)-9;
write(A[i,j]:5);
end;
writeln;
end;
tmp:=A[1,2];
for i:=1 to 5 do
for q:=2 to 2 do
if A[i,q]<tmp then
begin
tmp:= A[i,q];
end;
writeln(tmp);
tmp:=A[1,3];
for i:=1 to 5 do
for q:= 3 to 3 do
if A[i,q]<tmp then
begin
tmp:= A[i,q];
end;
writeln(tmp);
readln;
end.
Если ты находишь минимум во втором и третьем столбце (колонна - это не из области программирования), то вот так:
for q:=2 to 3 do begin
tmp:=1;
for i:=2 to 5 do
if A[i,q]<A[tmp,q] then begin
tmp:= i;
end;
writeln('A[',tmp,',',q,'] = ', A[tmp,q]);
end;
Я запустил Ваш варианнт программы, но у меня почему-то индексы не всегда правильно пишутся, также невсегда правильно находит минимальный элемент !
Исправлено
Большое спасибо всё работает !