Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

СРОЧНО!!!сформировать одномерный массив из n элементов следующим образом: элемент с четным номером равен номеру в квадрате, элемент с нечетным номером-корню квадратному из номера

Ответ оставил Гость

// 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