Дано n чисел. Замените все отрицательные числа их модулями. Язык программирования Паскаль.
Ответ
2
uses crt;
var
n,i:integer;
a:array[1..1000] of integer;
BEGIN
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
if a[i]<0 then a[i]:=abs(a[i]);
for i:=1 to n do write(a[i],' ');
END.
Ответ
3
var
n,i,a:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a);
write(abs(a),' ');
end;
end.