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

alenaav08 alenaav08    1   01.10.2019 19:40    1

Ответы
Andrey11jr Andrey11jr  04.08.2020 21:19

var a:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

write ('Введите ',i,' элемент массива: ');

readln (a[i])

end;

writeln('Исходный массив: ',a);

for i:=1 to 10 do if a[i]<0 then a[i]:=abs(a[i]);

writeln('Преобразованный массив: ',a)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика