1) Составьте программу на языке Pascal, в которой пользователь вводит с клавиатуры значения элементов массива, а программа выводит значения элементов массива с противоположным знаком.

2) Составьте программу на языке Pascal, в которой пользователь вводит с клавиатуры значения элементов массива, а программа выводит значения первой половины элементов увеличенных в 2 раза, а второй половины элементом уменьшенных в 2 раза.

Question

Информатика

Агнесса

24 февраля, 18:13

1) Составьте программу на языке Pascal, в которой пользователь вводит с клавиатуры значения элементов массива, а программа выводит значения элементов массива с противоположным знаком.

2) Составьте программу на языке Pascal, в которой пользователь вводит с клавиатуры значения элементов массива, а программа выводит значения первой половины элементов увеличенных в 2 раза, а второй половины элементом уменьшенных в 2 раза.

+5

Ответы (1)

Знаете ответ?

Коняша · Answer 1

1)

var

mas: array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do

read (mas[i]) ;

for i:=1 to 10 do begin

if mas[i]<0 then

write (abs (mas[i]),' ')

else

write (-mas[i],' ') ;

end;

end.

2)

var

mas: array [1 ... 10] of real;

i:integer;

begin

for i:=1 to 10 do

read (mas[i]) ;

for i:=1 to 5 do

write (mas[i]*2,' ') ;

for i:=6 to 10 do

write (mas[i]/2,' ') ;

end.