Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 27.09.2014
Сообщений: 18
1

Найти в массиве в первой половине min второй половине max например 1-10 первая полавина 1-5 вторая 5-10

21.10.2014, 00:04. Просмотров 412. Ответов 1
Метки нет (Все метки)


задача найти в массиве в первой половине min второй половине max например 1-10 первая полавина 1-5 вторая 5-10

вроде не правильно нашел на форуме
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var a: array [0..10] of integer;
i,max,min:integer;
begin
 
max:=1; min:=10;
for i:=1 to 10 do begin
read(a[i]);
if a[i]>a[max] then max:=i;
end;
 
for i:=10 to 10 do begin
read(a[i]);
if a[i]<a[min] then min:=i;
end;
 
a[0]:=a[min]; a[min]:=a[max]; a[max]:=a[0];
 
for i:=1 to 60 do write(a[i],' ');
writeln;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2014, 00:04
Ответы с готовыми решениями:

Найти max элемент в первой половине массива и min во второй
Найти МАХ элемент из первой половины массива и МИН – из второй половины массива.

В массиве найти в первой половине массива наибольший,а во второй половине-наименьший элемент и поменять их местами
В произвольном массиве A,состоящем из 60 целых чисел,принадлежащих промежутку ,найти в первой...

В первой половине массива найти максимальный элемент, во второй половине минимальный
Дан одномерный массив размером N. Заполнить массив случайными элементами. В первой половине массива...

Выполнить реверс массива отдельно в первой половине и второй половине
Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Модератор
8405 / 4157 / 2873
Регистрация: 17.08.2012
Сообщений: 13,257
21.10.2014, 03:28 2
b1rzhan, это только заготовка кода. Незачем два раза вводить массив. Min нужно искать в диапазоне индексов 1..5, max 6..10, полагаю. Разберитесь, в Вашем условии "1-5 вторая 5-10" пятёрки не подерутся, как Вы думаете? При печати массива будет вылет программы в связи с выходом за диапазон индексов: в массиве 10 элементов, а Вы желаете вывести аж 60.

Подрихтуйте, и будет вполне себе нормальный код. Поменяйте местами первые два цикла. Цикл для min i := 1 to 5, цикл для max i := 6 to 10, цикл для печати i := 1 to 10, 16 строку выбросьте в Ганг, она из программы для какой-то сортировки, после цикла печати массива сделайте печать max и min.

Добавлено через 6 минут
Да, чуть не упустил. Исправьте, ясно где,
Pascal
1
max := 6; min := 1;
, не то у Вас элементы массива будут сравниваться с ещё не введёнными значениями, то есть, с не пойми чем.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.10.2014, 03:28

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Выполнить реверс отдельно в первой половине и второй половине массива
Массив имеет четное число элементов,заполните массив случайными числами и выполнить реверс отдельно...

Найти максимальный элемент в первой половине массива и минимальный - во второй половине массива
Здравствуйте, помогите пожалуйста сделать программу. Задание: Дан массив А размерностью k. Найти...

Превратить массив так, чтобы в его первой половине располагались элементы стоящие в четных позициях а во второй половине - нечетные
в массиве вычислить: 3) превратить массив таким образом, чтобы в его первой половине...

Массив: Преобразовать массив: в первой его половине расположить четные элементы, а во второй половине - нечетные...
Преобразовать одномерный массив таки образом,чтобы в первой его половине располагались...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.