Паскаль

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

а) Каждый элемент, больший 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.