Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/21: Рейтинг темы: голосов - 21, средняя оценка - 4.90
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 102
1

В массиве найти максимальный элемент в первой половине и максимальный элемент во второй

19.03.2013, 14:20. Показов 3839. Ответов 2
Метки нет (Все метки)

Доброго времени суток!
НЕ могу написать код программы к задаче
В массиве Х(N) найти max1 – максимальный элемент в первой половине массива и max2 – максимальный элемент во второй половине массива.
все не удачные попытки написания проги к сожалению остались на другом ПК=(
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2013, 14:20
Ответы с готовыми решениями:

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

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

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

Не находится максимальный элемент второй матрицы, вместо него выдаётся максимальный элемент первой
Не находится максимальный элемент второй матрицы, вместо него выдаётся максимальный элемент первой....

2
Фрилансер
3412 / 2809 / 3000
Регистрация: 08.02.2012
Сообщений: 8,085
Записей в блоге: 1
20.03.2013, 12:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var X:array[1..100] of integer;
    i,n,max1,max2:byte;
Begin
    write('N = ');readln(n);
    For i:=1 to n do
    Begin
      X[i]:=random(31)-15;
      write(X[i]:4);
    End;
    writeln;
    max1:=1;
    For i:=2 to n div 2 do
     if X[i]>X[max1] then max1:=i;
    max2:=n div 2+1;
    For i:=n div 2+2 to n do
     if X[i]>X[max2] then max2:=i;
    writeln('Max1  = ',X[max1]);
    writeln('Max2  = ',X[max2]);
    readln;
End.
1
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 102
20.03.2013, 15:26  [ТС] 3
спасибо) уже сам сделал давно)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2013, 15:26

Помощь в написании контрольных, курсовых и дипломных работ здесь.

В целочисленном массиве M(n) найти максимальный элемент среди четных элементов массива и максимальный элемент
В целочисленном массиве M(n) найти максимальный элемент среди четных элементов массива и...

Проверить, расположен ли максимальный нечетный элемент в первой половине массива
Дан одномерный массив А неупорядоченных целых чисел, состоящий из 2N элементов. Если максимум среди...

Найти второй максимальный элемент в массиве
Здравствуйте! Подскажите, пожалуйста, как найти второй максимальный элемент в массиве? ...

В отсортированном массиве найти второй максимальный по величине элемент
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве...


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

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

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