Вопрос по информатике:
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ
Уровень B. Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
Массив:
1 2 3 4 5 6
Результат:
3 2 1 6 5 4
- 02.11.2017 11:47
- Информатика
- remove_red_eye 11319
- thumb_up 21
Ответы и объяснения 1
//Pascal ABC.NET 3.1 сборка 1256
Const
n=6;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(10);
write(ar[i]:4);
end;
for i:=1 to n div 4 do
swap(ar[i],ar[n div 2-i+1]);
for i:=n downto n-(n div 4) do
swap(ar[i],ar[(n div 2)+1+n-i]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
- 03.11.2017 16:20
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.