// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x)); foreach var e in s do Writeln(e.Item1:10,e.Item2:10,e.Item3:10) end.
Вот массив который сам заполняется uses crt; const n=100; var i,a:integer; mas1: array [0..n] of integer; begin for i:=0 to n do begin a:=random(10000); mas1[i]:=a; end; for i:=0 to n do begin if i mod 2=0 then write('A[',i,']=',mas1[i],' '); end; end.
вот заполняемый вручную(чтобы записывать через пробел сам измени))) uses crt; const n=100; var i,a:integer; mas1: array [0..n] of integer; label 1; begin for i:=0 to n do begin 1:read(a); if a<=10000 then mas1[i]:=a else begin writeln('a bolwe 10000'); goto 1 end; end; for i:=0 to n do begin if i mod 2=0 then write('A[',i,']=',mas1[i],' '); end; end.
begin
var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x));
foreach var e in s do
Writeln(e.Item1:10,e.Item2:10,e.Item3:10)
end.
Тестовое решение:
n= 20
1 1 1
3 9 27
5 25 125
7 49 343
9 81 729
11 121 1331
13 169 2197
15 225 3375
17 289 4913
19 361 6859