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

Question

Информатика

Маня

10 августа, 01:59

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

+3

Ответы (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.