Составить программу, которая организует ввод массива a [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их
модулями.
модулями.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i:Integer;
Begin
for i:=1 to 10 do
Read(A[i]);
for i:=1 to 10 do
if (A[i]<0) then A[i]:=ABS(A[i]);
for i:=1 to 10 do
Write(A[i],' ');
end.