Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив индексы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
BuTeK
Добрый день !
Написал программу которая находит минимальный элемент во 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.

volvo
Если ты находишь минимум во втором и третьем столбце (колонна - это не из области программирования), то вот так:
    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;
BuTeK
Я запустил Ваш варианнт программы, но у меня почему-то индексы не всегда правильно пишутся, также невсегда правильно находит минимальный элемент !
volvo
Исправлено
BuTeK
Большое спасибо всё работает !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.