Дан массив вещественных чисел. Каждый отрицательный элемент заменить на его абсолютную величину

Question

Информатика

Станимир

7 апреля, 09:10

Дан массив вещественных чисел. Каждый отрицательный элемент заменить на его абсолютную величину

+1

Ответы (1)

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

Аннета · Answer 1

Uses crt;

var i, n:integer;

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

begin

writeln ('Сколько чисел в массиве?') ;

read (n) ;

writeln ('Введите элементы.') ;

for i:=1 to n do

begin

read (a[i]) ;

if a[i]<0 then

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

end;

for i:=1 to n do

write (a[i],' ') ;

end.