С клавиатуры вводятся целые числа. Признаком конца ввода чисел является 0. изменить знак отрицательных чисел на положительный. Результаты вывести на экран.

Question

Информатика

Надюся

14 января, 03:26

С клавиатуры вводятся целые числа. Признаком конца ввода чисел является 0. изменить знак отрицательных чисел на положительный. Результаты вывести на экран.

+4

Ответы (1)

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

Витяся · Answer 1

uses

System. Collections. Generic;

var

a: List : = new List () ; / / Объявляем и создаём динамический массив

i: integer;

begin

repeat

readln (i) ;

if (i = 0) then

break

else

a. Add (i) ;

until (False) ; / / Прекращаем цикл, когда рак (break) в цикле свиснет (False можно заменить на "2 + 2 = 5"

writeln (#13) ; / / Вставляем 2 пустые строки

foreach i in a do / / Выводим исходный массив

write (i, ' ') ;

writeln () ;

foreach i in a do / / Выводим конечные числа, нет задачи массив изменять

write (abs (i), ' ') ;

end.