Question

Помогите возвести каждый второй элемент массива в квадрат(паскаль)

Answer 1

const n = 15;

var

   a: array[1..n] of real;

   i, k: integer; 

begin

   for i:=1 to n do readln(a[i]);

   for i:= 1 to n do

   begin

       if i mod 2 = 0 then

       a[i]:= sqr(a[i]);

   writeln(a[i]);

   end;

end.