arrays - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

arrays

maryennymaryenny Posts: 1Member
Hello! I have a problem. Here is part of program in pascal. Why it gives value 0 for every element in array? I'd be very grateful if you'd help me.
[code]program matricas;
uses crt;

var n,l,i,j,m,k,r:integer;

pag : array[1..2,1..20]of integer;
incid: array[1..15,1..15]of integer;
blakus: array[1..15,1..20] of integer;
label again,again2;

BEGIN
clrscr;
again:
writeln('915) then
begin
writeln('Vwrong!');
goto again;
end;

again2:
writeln('1219) then
begin
writeln('wrong');
goto again2;
end;


writeln('...');
for i:=1 to l do
begin
writeln('Ievadi ',i,'. loku : ');
readln(pag[1,i]);
readln(pag[2,i]); end;
for i:=1 to l do
begin
writeln(pag[1,i]);
writeln(pag[2,i]);
end;[/code]

Comments

  • AtexAtex Posts: 268Member
    : Hello! I have a problem. Here is part of program in pascal. Why it
    : gives value 0 for every element in array?

    It works fine for me...
Sign In or Register to comment.