2D masīvs

[njitak]

varētu kāds palīdzēt un papildināt programmu tā, lai izvadītu kura no māsīvu rindām ir nepāra?

program arrayprog;

var a:array [0..3,0..5] of shortint ;

i,j, sum: byte;

procedure eksamens;

begin

a[i,j] := random (20) +25

end;

procedure ieskaite;

begin

if i mod 2 = 1 then

writeln(i+1, '. Nepara rindas suma');

end;

begin

randomize;

for i := 0 to 3 do

for j :=0 to 5 do

eksamens;

for i := 0 to 3 do

Begin

for j := 0 to 5 do

write(a[i,j]:5);

writeln

end;

writeln;

for i :=0 to 3 do

ieskaite;

readln;

end.