Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите составить программу, которая организует ввод массива a[1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

Ответ оставил Гость

Var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
begin;
   write(Введите ,i, элемент массива:);
   readln(ar[i]);
      if ar[i]<0 then ar[i]:=abs(ar[i]);
end;
writeln(Final array:);
for i:=1 to 10 do
write(ar[i]:4);
end.