Question

Дано n чисел. Замените все отрицательные числа их модулями. Язык программирования Паскаль. Запишите с помощью массивов.

Answer 1

var a,b:integer;
       arr: array [0..100] of integer;
begin
writeln('введите длину массива');
readln(a);
writeln('введите элементы массива : ');
for b:=1 to a do begin
readln(arr[b]);
arr[b]:=abs( arr[b] );
end;
for b:=1 to a do begin
writeln('новый элемент массива ==> ',arr[b]);
end;
end.