для каждой строки массива определить последний элемент, который не является степенью числа 3

[ALINA787]

Для каждой строки массива определить последний элемент, который не является степенью числа 3

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  for i:=1 to m do begin
    k:=0;
    for j:=n downto 1 do begin
      t:=mas[i,j]; while t mod 3=0 do
      t:=t div 3;
      if t<>1 then
       begin
        k:=j; exit;
      end;
 
      if k=0 then Memo1.Lines.Add(' В строчке '+inttostr(i+1)+' нет такого элемента')
      else  Memo1.Lines.Add(' В строчке '+inttostr(i+1)+' элемент, который не является стпенью числа 3 '+'['+inttostr(i+1)+';'+inttostr(k+1)+']');
  end;
end;
end;

[Serge_Bliznykov]

+1 не надо делать

      if k=0 then Memo1.Lines.Add(' В строчке '+inttostr(i)+' нет такого элемента')
      else  Memo1.Lines.Add(' В строчке '+inttostr(i)+' элемент, который не является степенью числа 3 '+'['+inttostr(i)+';'+inttostr(k)+']');

массив у Вас точно M строк на N столбцов?

[ALINA787]

фишка в том что оно ничего не выводит массив сформирован перед этим и выведен а вот условие нет

[Аватар]

А нормально отформатировать и проверить правильность пар begin end

[Serge_Bliznykov]

Сообщение от Аватар

А нормально отформатировать и проверить правильность пар begin end

Аватар прав.
Вы уже вывод результата оставили внутри цикла по столбцам, а нужно - во вне.

так попробуйте:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k,t : integer;
begin
  for i:=1 to m do begin
    k:=0;
    for j:=n downto 1 do begin
      t:=mas[i,j]; 
      while t mod 3=0 do t:=t div 3;
      if t<>1 then
         begin
            k:=j; exit;
         end;
    end;

    if k=0 then Memo1.Lines.Add(' В строчке '+inttostr(i)+' нет такого элемента')
    else  Memo1.Lines.Add(' В строчке '+inttostr(i)+' элемент, который не является стпенью числа 3 '+'['+inttostr(i)+';'+inttostr(k)+']');

  end;
end;

[ALINA787]

все перепробывала с игрой бегин и енд
и поменяла exit на break
вот вывод в мемо

В строчке 1 элемент, который не является стпенью числа 3 [1;5]
В строчке 2 элемент, который не является стпенью числа 3 [2;5]
В строчке 3 элемент, который не является стпенью числа 3 [3;5]
В строчке 4 элемент, который не является стпенью числа 3 [4;5]
В строчке 5 элемент, который не является стпенью числа 3 [5;5]

[Serge_Bliznykov]

Сообщение от ALINA787

и поменяла exit на break

ой. точно. А я пропустил этот момент, извините

Сообщение от ALINA787

вот вывод в мемо

В строчке 1 элемент, который не является стпенью числа 3 [1;5]
В строчке 2 элемент, который не является стпенью числа 3 [2;5]
В строчке 3 элемент, который не является стпенью числа 3 [3;5]
В строчке 4 элемент, который не является стпенью числа 3 [4;5]
В строчке 5 элемент, который не является стпенью числа 3 [5;5]

так. ну, значит, у Вас матрица 5X5
и в каждой строке последний элемент НЕ Является степенью числа 3 (кстати, исправьте слово "стпенью " )
всё, как Вы хотели.