Вопрос по информатике:
Помогите, пожалуйста!!!
Turbo Pascal
Создайте массив, содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в три раза, а нечетные в 2 раза. содержимое обработанного таким образом массива вывести на экран.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.06.2016 21:42
- Информатика
- remove_red_eye 8750
- thumb_up 47
Ответы и объяснения 1
Var j, i, x:integer; a: array [1..20] of integer;
begin
randomize;
writeln();
for i := 1 to 20 do
a[i] := random(1000);
for j := 2 to 10 do
for i := 10 downto j do
if a[i] < a[i - 1]
then
begin
x := a[i];
a[i] := a[i - 1];
a[i - 1] := x;
end;
for j := 12 to 20 do
for i := 20 downto j do
if a[i] > a[i - 1]
then
begin
x := a[i];
a[i] := a[i - 1];
a[i - 1] := x;
end;
for i := 1 to 20 do
if i mod 2 = 0
then
a[i] := 3 * a[i]
else
a[i] := 2 * a[i];
writeln();
for i := 1 to 20 do
write(a[i], ' ');
end.
- 20.06.2016 15:50
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.