Найти максимальные по значению элементы в каждой строке матрицы а(n,m)

нужно графическое изображение двумерного массива

program z1;

var t: integer;

begin

write('С начала суток секунд t = ');

readln(t);

writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

1 мин = 60 сек

1 час = 60 мин = 3600 сек

t div 3600 - сколько целых часов

t mod 3600 - сколько секунд осталось не считая целых часов

t mod 3600 div 60 - сколько целых минут

t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.