Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  UP
Language: PASCAL
Code:
program pocetcisel;
uses crt;
var a:array[1...20] of integer;
     i,pocet: integer;
begin
     clrscr;
     write('zadaj pocet prvkov pola');
     readln(pocet);
     for i :=1to pocet do 
          begin
          write('a[',i,']´=');
          readln(a[i]);
          end;
     readln
end.
          
          
Comments: