Двумерный массив целых чисел

[PAREN_DEFO]

Принимая, что массив просматривается построчно сверху вниз, а в каждой строке с лева направо, НАЙТИ:
1) Координаты (номера) первого элемента, кратного 7
2) Координаты (номера) последнего элемента, больше числа Z

Вот код, запутался.
можно сделать и не одной кнопкой )

Безымянный.jpg

procedure TForm1.Button1Click(Sender: TObject);
 
var i,j,k,s,z:integer;
begin
i:=0;
j:=0;
s:=0;
k:=1;
randomize;
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i,j] := random(20);
memo1.text:=memo1.Text+'    '+(inttostr(a[i,j]));
end;
memo1.Lines.Add(#0);
end;
begin
s:=7;
z:=strtoint(edit1.text);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if a[i,j] mod s = 0 then
a[i,j]:=k;
edit2.Text:=edit2.Text+' '+inttostr(k);
 
 
end;
 
end;
end;
 
 
end;
 
end.

[Utkin]

Ты находишь координаты последнего элемента кратного 7. Заведи еще булеву переменную, которая бы сообщала, что элемент найден и дальше искать не надо. Как вариант можно искать с конца, но тогда циклы надо будет правильно перевернуть.
Ну а с Z-ом проще - по образцу твоего текущего условия, делай в э
том же цикле. Или не знаешь как проверить что одно число больше другого?

[PAREN_DEFO]

мм, на счёт Z не могу подойти к этому

[Utkin]

К чему подойти ты не можешь? Как сравнить одно число с другим?

[Вадим Мошев]

В обеих случаях идти надо с разных сторон.
В первом с начала, во втором - с конца. (for i:=n downto 1 do...)

Как только выполнилось нужное условие, остановить цикл процедурой Break