// PascalABC.NET 3.0, сборка 1088
const
nn=100;
var
a:array[1..nn] of real;
i,n:integer;
begin
Write('Количество элементов в массиве: '); Read(n);
for i:=1 to n do begin
if Odd(i) then a[i]:=sqrt(i)
else a[i]:=sqr(i);
Write(a[i]:0:4,' ')
end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 12
1.0000 4.0000 1.7321 16.0000 2.2361 36.0000 2.6458 64.0000 3.0000 100.0000 3.3166 144.0000