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

Question

Информатика

Акчач

26 апреля, 21:53

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

+2

Ответы (1)

Знаете ответ на вопрос?

Даня · Answer 1

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.