Паскаль

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

а) Каждый элемент, больший 10, заменить его квадратным корнем.

б) Все элементы массива с четными номерами заменить их абсолютной величиной.

A.

var

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

i:integer;

begin

for i: = 1 to 10 do Begin

write ('Введите ', i,'-ый элемент массива ') ;

Readln (a[i]) ;

if a[i]>10 then a[i]:=sqrt (a[i]) ;

End;

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

for i : = 1 to 10 do write (a[i],' | ') ;

end.

б.

var

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

i:integer;

begin

for i: = 1 to 10 do Begin

write ('Введите ', i,'-ый элемент массива ') ;

Readln (a[i]) ;

if (i mod 2) = 0 then a[i]:=trunc (a[i]) ;

End;

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

for i : = 1 to 10 do write (a[i],' | ') ;

end.