Склавиатуры вводятся целые числа. признаком конца ввода чисел является 0. изменить знак отрицательных чисел на положительный. результаты вывести на экран.
uses System.Collections.Generic; var a: List<integer> := new List<integer>(); //Объявляем и создаём динамический массив 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.
System.Collections.Generic;
var
a: List<integer> := new List<integer>(); //Объявляем и создаём динамический массив
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.