Очень сильное колдунство в PascaдABC

[AlexBrink]

Прошу помощи в написании кода,ну и собственно решения задачи,сами как понимаете 0 в программирование.

[AlexBrink]

Код нужен написанный на pascal

[AlexBrink]

Подниму выше

[Abstraction]

[offtopic_mode = 1]
"Найти новый одномерный массив" - замечательная формулировка. Единственная приходящая на ум адекватная интерпретация - сканировать адресное пространство процесса до обнаружения подходящего адреса...

[AlexBrink]

ещё и не то можно увидеть в институтах

[Mad_Cat]

uses crt;
const n=5;m=4;
var A:array[1..n,1..m] of real;
    B:array[1..n] of real;
    i,j:integer;
    max:real;
begin
randomize;
// ввод-вывод исходного матрицы
Writeln('Исходная Матрица А:');
for i:=1 to n do  begin
for j:=1 to m do
begin
a[i,j]:=random(100)+random(100)/100;
write(a[i,j]:6:2);
end;
writeln;
end;
// получение и вывод массива B
Writeln('Маcсив B:');
for i:=1 to n do begin b[i]:=0;
for j:=1 to m do
b[i]:=b[i]+a[i,j];
write(b[i]:8:2);
end;
writeln;
// нахождение максимума в 5 строке
max:=a[5,1];
for j:=2 to m do
if a[5,j]>max then max:=a[5,j];
writeln('Максимум в 5 строке =',max:6:2);
// замена последнего элемента в 3 строке на найденный максимум
a[3,m]:=max;
//вывод получившейся матрицы
Writeln('Получившаяся Матрица А:');
for i:=1 to n do  begin
for j:=1 to m do
write(a[i,j]:6:2);
writeln;
end;
end.

[Utkin]

А зачем m и n именованые константы, а 1 в нижней границе при объявлении массива просто числовая ? Какая-то недоуниверсальность...