Дан массив вещественных чисел:

Все элементы с нечетными номерами заменить на их квадратный корень

var

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

i, n:integer;

begin

write ('Введите количество элементов ') ; readln (n) ;

for i : = 1 to n do

begin

write ('a[', i,'] = ') ;

readln (a[i]) ;

end;

writeln;

writeln ('Исходный массив:') ;

for i : = 1 to n do

begin

write (a[i], ' ') ;

if i mod 2 = 1 then

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

end;

writeln;

writeln;

writeln ('Преобразованный массив:') ;

for i : = 1 to n do

write (a[i]:0:2, ' ') ;

writeln;

end.