#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int a;
cout<<"Введи размерность"<<endl;
cin>>a;
int arr[a+1][a+1];
for (int i=1; i<a+1; ++i)
for(int j=1; j<a+1; ++j)
arr[i][j]=i*j;
for (int i=1; i<a+1; ++i) {arr[i][0]=i;arr[0][i]=i;}
cout<<" ";
for (int i=1; i<a+1; ++i){cout<<arr[i][0]<<" ";}
cout<<endl;
for (int i=1; i<a+1; ++i){
for(int j=0; j<a+1; ++j)
cout<<arr[i][j]<<" ";
cout<<endl;
}
return 0;
}
Т.к. в условии про оформление ничего не сказано, то сделал самое обычное
Program Runa;
const
n=5;
m=5;
var
A:array[1..n,1..m] of real;
i,j: integer;
max: real;
begin
writeln('матрица A(5x5)');
{Считываем матрицу с экрана}
for i:=1 to n do
for j:=1 to m do
begin
write ('A[ ',i,',',j,' ] = ');
readln (A[i,j]);
end;
{Присваиваем минимальное значение максимуму}
max:=0;
for i:=1 to n do
for j:=1 to m do
{Если в матрице число больше максимума - присваиваем максимуму значение из матрицы}
if (a[i,j]>max) then max:=a[i,j];
{Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}
if max>0 writeln ('max= ',max) else
Writeln('Положительных элементов нет');
end.