Вопрос по информатике:
Дан одномерный массив из 15 элементов. Переставить в обратном порядке элементы, расположенные между максимальным и минимальным элементами, включая их.
например дано: 5 6 3 14 2 1 2 4 9 10 15 7 11 3 8
выведет: 5 6 3 14 2 15 10 9 4 2 1 7 11 3 8
числа задаются random
Паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.03.2016 02:23
- Информатика
- remove_red_eye 10407
- thumb_up 25
Ответы и объяснения 1
Сорян, когда из паскаля скопировал, абзацы некоторые удалились,а так всё работает. Делать нечего прост сегодня :)
var s,i,min,max,m,n: integer;
var a: array[1..15] of integer;
begin
for i:=1 to 15 do begin
a[i]:=random(100);
write(a[i],' ') end;
writeln; m:=a[1];n:=a[1];
for i:=1 to 15 do begin
if m
if n>a[i] then begin
n:=a[i]; max:=i; end; end; if max
for i:=1 to ((abs(max-min)) div 2 +1) do begin
s:=a[min]; a[min]:=a[max]; a[max]:=s; min:=min+1; max:=max-1; end; for i:=1 to 15 do write(a[i],' '); end.
- 04.03.2016 10:39
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.