Массивы

[Katerina_K]

Здравствуйте! Помоги пожалуйста с задачей.

Создать двумерный динамический массив с заполнением элементов случайным образом.Вывести на форму и найти
сумму элементов нечетных столбцов;
квадрат максимального элемента 2 строки;
среднее значение двух первых строк.
язык-паскаль

[Mad_Cat]

const Nmax=100;
var a:Array[1..Nmax,1..Nmax] of real;
i,j,n:integer;
k:integer;
avg,sum:real;
begin
Randomize;
Readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(n*n)-n+random(100)/100;
write(a[i,j]:6:2);
end;
writeln;
end;
sum:=0;
j:=1;
while j<=n do begin
For i:=1 to n do
sum:=sum+a[i,j];
inc(j,2);
end;
writeln(sum);
avg:=0;k:=0;
for i:=1 to 2 do
for j:=1 to n do  begin
avg:=avg+a[i,j];inc(k);
end;
writeln(avg/k);
k:=1;
for i:=2 to n do
if a[2,i]>a[2,k] then k:=i;
writeln(sqr(a[2,k]));
end.

4
-0.26 -3.55 -1.25 5.12
8.06 3.19 4.76 10.46
9.04 0.68 -3.54 5.64
-3.36 7.74 7.58 7.10
21.03
3.31625
109.4116

вам осталось только

Создать двумерный динамический массив