Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:

Program HelloWorld(output);
var
   a: array [1..10] of integer;
   b: array [1..10] of integer;
   i: integer;
begin
  for i := 1 to 10 do
  begin
     writeln('Write the next element of array:');
     readln(a[i])  ;   
  end;
  writeln('Elements of your array are:');
  for i := 1 to 10 do
  begin
     write(a[i]);
     write(' ');
  end;
read ln
end.
 
Comments: