Дано n чисел. Замените все отрицательные числа их модулями. Язык программирования Паскаль. Запишите с помощью массивов.
Var a,b:integer;
arr: array [0..100] of integer;
begin
writeln(введите длину массива);
readln(a);
writeln(введите элементы массива : );
for b:=1 to a do begin
readln(arr[b]);
arr[b]:=abs( arr[b] );
end;
for b:=1 to a do begin
writeln(новый элемент массива ==> ,arr[b]);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
