СРОЧНО!!!сформировать одномерный массив из n элементов следующим образом: элемент с четным номером равен номеру в квадрате, элемент с нечетным номером-корню квадратному из номера
Answers & Comments
Endok
Var A:array[1..100] of real; i,N:integer; begin Readln(N); For i:=1 to N do begin If i mod 2=0 then A[i]:=sqr(i) else A[i]:=sqrt(i); end; For i:=1 to N do Write(A[i],' '); end.
Answers & Comments
i,N:integer;
begin
Readln(N);
For i:=1 to N do
begin
If i mod 2=0 then
A[i]:=sqr(i)
else
A[i]:=sqrt(i);
end;
For i:=1 to N do
Write(A[i],' ');
end.