Заменить элементы массива с нечетными индексами на квдрат их индекса.

Полный текст программы,пожалуйста!

1

Ответы и объяснения

Лучший Ответ!
2012-04-27T11:51:54+00:00

const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
                       if i mod 2=1 then a[i]:=sqr(i);
                       writeln(i,' элемент массива равен : ',a[i]);
                       end;
end.