Question

Сделайте в паскаль. дан массив вещественных чисел. вывести на экран новое состояние массива, в котором: a) каждый отрицательный элемент заменить на его абсолютную величину; b) все элементы с нечетными номерами заменить на их квадратный корень; c) из всех положительных элементов вычесть элемент с номером к1, из остальных к2.

Answer 1

Var A:array [-10..999] of real;b,c,i:integer;v:real;begin
write('Введите число K1');
read(b);
Write('Введите число k2');
read(c);
for i:=-10 to 10 doa[i]:=i;for i:=-10 to 10 do beginv:=a[i];if v >0 then a[i]:=a[i]*a[i];if a[i]<0 then a[i]:=a[i]*-1;
if a[i]>=0 then a[i]:=a[i]-b else a[i]:=a[i]-c;
end;end.