Паскаль Дан массив вещественных чисел. а) Каждый элемент, больший 10, заменить его...

Question

Паскаль

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

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

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

Answer 1

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.