arrays

Thu, 26 Nov 2009 00:46:20 -0700

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.

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('9<n<16!');
 readln(n);
 if (n<10)or(n>15) then
 begin
 writeln('Vwrong!');
 goto again;
 end;

  again2:
  writeln('12<l<20!');
  readln(l);
 if (l<13)or(l>19) 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;

Re: arrays

Thu, 26 Nov 2009 21:07:01 -0700

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

'arrays' Thread RSS Feed

arrays

Re: arrays