заполнить двумерный массив

var a:array[1..4,1..4] of integer;
i,j,k:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(5);
write(a[i,j]:3);
end;
writeln
end;
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do
if (i>j) and (a[i,j]=0) then k:=k+1;
writeln('Kol.nuley=',k)
end.

вот формирование массива в общем виде, переделай как тебе надо, не получится - пиши
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(101);
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('Zadacha na massiv ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin это заполнение и распечатка массива без процедур
for j:=1 to m do begin
a[i,j]:=random(101);
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.

вычислила хД

}
}
;++sorez )0 == ]j[]i[rra( fi
{ )++j ;i < j ;0 = j tni( rof
{ )++i ;htgnel.rra < i ;1 = i tni( rof
}
}
;)5 * )(modnar.htaM( )tni( = ]j[]i[rra
{ )++j ;htgnel.]i[rra < j ;0 = j tni( rof
{ )++i ;htgnel.rra < i ;0 = i tni( rof
;0 = sorez tni
;]4[]4[tni wen = rra ][][tni

переверни и сможешь узнать ответ