Составьте программу заполнения массива

Question

Составьте программу заполнения массива

---

Answer 1

program mas;
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do
begin
a[i]:=p;
p:=p+2;
writeln (p);
end;
end.

Answer 2

Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;   
i:integer;

BEGIN
CLRSCR;
   For i:=1 to 10 do     
      begin         
         A[i]:=i+i+1;         
         Write(A[i],' ');     
      end;

READLN;
END.

2)
USES CRT;
VAR A:array[1..10] of integer;   
        i:integer;

BEGIN
CLRSCR;
   For i:=1 to 10 do     
       begin         
          A[i]:=i+i+i;         
          Write(A[i],' ');     
       end;

READLN;
END.

---

---