Question

PASCAL СРОЧНО Задан массив X из 8 элементов. Сформировать массив Y по правилу:

Answer 1

const

 k = 8;

var

 i: integer;

 x, y: array[1..k] of real;

begin

 for i := 1 to k do

   Read(x[i]);

 for i := 1 to k do

 begin

   if i mod 2 = 0 then

     y[i] := 4 * x[i]

   else

     y[i] := cos(2 * x[i]);

   write(y[i], ' ')

 end;

end.