Сделайте в паскаль.

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

Question

Информатика

Антонюшка

31 октября, 15:34

Сделайте в паскаль.

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

+4

Ответы (1)

Знаете ответ на вопрос?

Декабрина · 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.