Var a:array of integer;
n,i:integer;
begin
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
writeln;
i:=0;
while i<=n-1 do begin
write(a[i]:4);
i:=i+2;
end;
end.
Тестовое решение:
5
7 1 3 2 5
7 3 5
Program z1;
var a,n:longint;
c:real;
begin
writeln('Введите N=');
read(n);
a:=2;
c:=power (a,n);
writeln(c);
end.
Program z25;
Var x,y,c:integer;
Begin
write('Введите x = '); readln(x);
write('Введите y = '); readln(y);
c:=x;
x:=y;
y:=c;
writeln('X = ', x);
writeln('Y = ', y);
End;
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;
40*16=640 символов в строках
640*8=5120 символов на 8 страницах
5120/2=2560 байт на 8 страницах
1Кбайт=1024 байт
2560/1024=2.5Кбайт