bai9.pascal

Tổng số bài gửi : 16 Join date : 06/12/2022

uses math;
var i,n,k:longint;
a,c:array [1..1000] of longint;
begin
assign(input,'bai9.inp'); reset(input);
assign(output,'bai9.out'); rewrite(output);
read(n);
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
begin
k:=k+1;
c[k]:=a[i];
end;
for i:=1 to n do
write(c[i],#32);
close(input); close(output);
end.

Code:

» bai5.pascal
» bai1.pascal
» bai2.pascal
» bai3.pascal
» bai4.pascal