• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

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

-Gluider-

Пришло время сдавать зачёт)) С утра сделал 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;


и ещё подскажите как реализовать вывод координат минимального элемента в стринг гриде. Заранее спасибо!
 
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];

Ваще бред а не исходник.
С утра если никто не ответит накарябую, ща в падлу. спать охота.
 
Код:
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 - его индексы
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab