njitak Posted December 4, 2013 Report Share Posted December 4, 2013 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now