Дан массив из, состоящий из 9 вещественных чисел. Все элементы массива с четными номерами заменить на их абсолютную величину

Question

Информатика

Риммич

15 декабря, 03:11

Дан массив из, состоящий из 9 вещественных чисел. Все элементы массива с четными номерами заменить на их абсолютную величину

+5

Ответы (1)

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

Антонин · Answer 1

Var

a:array [1 ... 9] of real;

i:integer;

begin

for i:=1 to 9 do read (a[i]) ;

a[2]:=abs (a[2]) ;

a[4]:=abs (a[4]) ;

a[6]:=abs (a[6]) ;

a[8]:=abs (a[8]) ;

for i:=1 to 9 do write (a[i],' ') ;

end.