Question

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

Answer 1

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.

Answer 2

var

 n,i,a:integer;

begin

 readln(n);

 for i:=1 to n do

 begin

  read(a);

  write(abs(a),' ');

end;

end.