[delphi] Помогите с лабой по масивам

  • Автор темы -Gluider-
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

-Gluider-

Гость
#1
Пришло время сдавать зачёт)) С утра сделал 9 лабораторок, а с 10 проблемы:

"Создать масив целых чисел размером 4х5, найти минимальный элемент и позицию этого елемента в масиве."

В место этого у меня выводится то предпоследний элемент то последний) вобщем запарился.

вот мой код , только не смеяться если натупил сильно

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
j:integer;
m:array [1..4,1..5] of integer;
min:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);
min:=m[i,j];
if m[i,j]<m[1,1] then min:=m[i,j];
edit1.Text:=floattostr(min);
end;
end;
end;


и ещё подскажите как реализовать вывод координат минимального элемента в стринг гриде. Заранее спасибо!
 
D

DIR3ct0r

Гость
#3
Код:
min:= a[1, 1];
for i:= 1 to 4 do
for j:= 1 to 5 do
if a[i, j] < min then 
begin
min:= a[i, j];
iRow:= i;
iCol:= j;
end;
min - минимальный элемент
iRow, iCol - его индексы
 
Статус
Закрыто для дальнейших ответов.