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

Question

Информатика

Жанка

3 августа, 10:49

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

+4

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