В одномерном массиве из 10 действительных чисел заменить все отрицательные элементы, противоположными им числами и вывести новый массив.

Question

Информатика

Евдя

10 января, 17:29

В одномерном массиве из 10 действительных чисел заменить все отрицательные элементы, противоположными им числами и вывести новый массив.

+3

Ответы (1)

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

Милетий · Answer 1

Program massive (input, output) ;

type vector=array[1 ... 10] of integer;

var I:integer;

z:vector;

begin

for I:=1 to 10 do

read (z[I]) ;

for I:=1 to 10 do

if z[I]<0 then z[I]:=z[i] * (-1) ;

for I:=1 to 1o do

write (z[I], ' ') ;

end.