Написать программу которая меняет в массиве отрицательные цисла на положительные

1

Ответы и объяснения

Лучший Ответ!
2013-09-29T03:52:30+00:00
Var a :array[1..100] of integer;     i,n:integer; begin   read(n); for i:=1 to n do begin read(a[i]); end;    for i:=1 to n do  if a[i]<0  then a[i]:=abs (a[i]);    for i:=1 to n do  write (a[i],' ');    end.