arrays

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

  • : 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.

Howdy, Stranger!

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

Categories

In this Discussion