Паскаль, строки

[Dean]

здравствуйте! можно попросить о помощи в решении одной задачки?
задана квадратная матрица У(5,5). Определить, где больше четных элементов:выше или ниже главной диагонали.
заранее огромное спасибо!

[Mad_Cat]

pod:=0; nad:=0;
for i:=1 to n do 
for j:=1 to n do
begin
if (j>i) and not odd(a[i,j]) then  inc(nad);
if (j<i) and not odd(a[i,j]) then  inc(pod);
end;

if pod>nad then writeln('pod') else writeln('nad');

[Dean]

посмотрите, пожалуйста:

program my;
var
a:array [1..5,1..5] of integer;
i,j,n:integer;
pod,nad:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do begin
a[i,j]:=random(100);
Readln(a[i,j]);
pod:=0; nad:=0;
for i:=1 to n do
for j:=1 to n do
begin
if (j>i) and not odd(a[i,j]) then  inc(nad);
if (j<i) and not odd(a[i,j]) then  inc(pod);
end;
if pod>nad then writeln('pod') else writeln('nad');
readln;
end;
end.

вот доделал Вашу программу, но что-то не работает. не пойму, в чем дело?

[Mad_Cat]

for i:=1 to 5 do
for j:=1 to 5 do

и

for i:=1 to n do
for j:=1 to n do

чему у тя N равно?

[Dean]

сделал вот так:

program my;
const
n=5;
m=5;
var
a:array [1..n,1..m] of integer;
i,j:integer;
pod,nad:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do begin
a[i,j]:=random(100);
Readln(a[i,j]);
pod:=0; nad:=0;
for i:=1 to n do
for j:=1 to m do
begin
if (j>i) and not odd(a[i,j]) then  inc(nad);
if (j<i) and not odd(a[i,j]) then  inc(pod);
end;
if pod>nad then writeln('pod') else writeln('nad');
readln;
end;
end.

не понимаю, не выводит она массив.

[Mad_Cat]

Вот исправленная

program my;
const
n=5;
m=5;
var
a:array [1..n,1..m] of integer;
i,j:integer;
pod,nad:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln
end;
pod:=0; nad:=0;
for i:=1 to n do
for j:=1 to m do
begin
if (j>i) and not odd(a[i,j]) then  inc(nad);
if (j<i) and not odd(a[i,j]) then  inc(pod);
end;
if pod>nad then writeln('pod') else writeln('nad');
readln;

end.

[Dean]

спасибо Вам огромное!