Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Паскаль
Дан массив вещественных чисел.
а) Каждый элемент, больший 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.