Составить программу которая организует ввод массива с клавиатуры а затем заменяет все отрицательные числа модулями
Составить программу которая организует ввод массива с клавиатуры а затем заменяет все отрицательные числа модулями
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var a:=ReadArrInteger('Вводите данные:',ReadInteger('n='));
a:=a.Select(x->Abs(x)).ToArray; a.Println
end.
Пример
n= 5
Вводите данные: 4 -2 0 4 -7
4 2 0 4 7
Гостьvar a:array of integer;
var i, n:integer;
begin
readln(n);//количество считываемых чисел
a := new integer[n];
for i:=1 to n do begin
read(a[i]);
a[i] := abs(a[i]);
end;
end.
Не нашли ответ?
Похожие вопросы