//PascalABC.NET 3.1
begin
var n := ReadInteger('>>');
WritelnFormat('{0} hours {1} minutes {2} seconds', n div 3600, n mod 3600 div 60, n mod 60)
end.
Program gt;
var a:array[1..7]of integer;
k,i,q:integer;
begin
read(k);
q:=0;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
begin
if(a[i]>-20)then writeln(i,' день ',k,' тонн угля');
if(a[i]<=-20)and(a[i]>=-30)then writeln(i,' день ',k+5,' тонн угля');
if(a[i]<-30)then writeln(i,' день ',k+12,' тонн угля');
if(a[i]<-30)then q:=q+1;
end;
writeln(q,' дней температура было ниже -30');
end.
Все что нужно сделать открыть"родную" программу windows например блокнот или paint нажать справка, затем вызов справки. Дальше нужно кликнуть мышкой по заглавию окна и выбрать из выпадающего списка "перейти по адресу"
это все.
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.