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

В одномерном массиве из 10 действительных чисел заменить все отрицательные элементы, противоположными им числами и вывести новый массив.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы