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

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

Question

Информатика

Филиппыч

1 ноября, 14:58

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.