Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  hhh
Language: PASCAL
Code:
program ads (input,output);
type
   index = 0..100;
   map =ARRAY[index,index] OF integer ;
var  
   r , c :integer;
   abc : map;
   
     begin
          FOR r :=0 to 10 DO
          begin
               FOR c := 0 to 10 DO
               abc[r,c] :=0;
               abc[r,c] := r+c;
               write(abc[r,c], ' ')          
          end;
          writeln;
     end.
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: