Предмет: Информатика, автор: rona1968

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

Ответы

Автор ответа: Lockhart
0

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.

Автор ответа: ivanpakalnishkis
0

var

 n,i,a:integer;

begin

 readln(n);

 for i:=1 to n do

 begin

  read(a);

  write(abs(a),' ');

end;

end.

Интересные вопросы
Предмет: Математика, автор: precto4
Предмет: Математика, автор: катька726739