21 / 20 / 17
Регистрация: 12.11.2011
Сообщений: 48
1

Поиск максимального и минимального элемента в массиве

18.11.2011, 21:02. Показов 4715. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Как найти максимальный и минимальный элемент в одномерном массиве
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2011, 21:02
Ответы с готовыми решениями:

Поиск минимального и максимального элемента в массиве
2. Сформировать 10-элементный массив случайным образом. Вывести на экран: а) минимальный элемент;...

Поиск максимального и минимального элемента массива в одномерном массиве
Помогите решить задачу Поиск максимального и минимального элемента массива в одномерном массиве

Подсчитать сумму максимального и минимального элемента в массиве Е
Здравствуйте программисты) Меня не было всего лишь на паре тем по паскалю, и по этому не знаю...

Поиск максимального и минимального элемента массива
Помогите получить автомат. По заданным 4-ем элементным целым массивам a, b, c написать...

4
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
18.11.2011, 21:26 2
Часть кода. Если нужна программа, намекни
Pascal
1
2
3
4
5
6
7
8
9
max:=a[1];
min:=a[1];
for i:=1 to n do
    begin
    if a[i]>max then
       max:=a[i];
    if a[i]<min then
       min:=a[i];
    end;
1
21 / 20 / 17
Регистрация: 12.11.2011
Сообщений: 48
18.11.2011, 22:14  [ТС] 3
нужно найти сумму элементов в массиве без максимального и минимального элемента
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
18.11.2011, 22:29 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот. Здесь учтен случай, когда минимальное или максимальное значение встречается несколько раз, тогда вычитаются все. Если не так, скажи...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var a: array [1..100] of integer;
    n,i,max,min,kmax,kmin,sum: integer;
begin
min:=100;
max:=-100;
write ('Введите размер массива ');
readln (n);
write ('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(101)-50;
    write (a[i]:4);
    if a[i]>max then
       max:=a[i];
    if a[i]<min then
       min:=a[i];
    inc(sum,a[i]);
    end;
for i:=1 to n do
    begin
    if a[i]=max then
       inc(kmax);
    if a[i]=min then
       inc(kmin);
    end;
writeln;
writeln ('Минимальный элемент ',min:5,' встречается ',kmin,' раз(a)');
writeln ('Максимальный элемент',max:5,' встречается ',kmax,' раз(a)');
writeln ('Сумма без максимума и минимума = ',sum-(kmax*max)-(kmin*min));
end.
1
1 / 1 / 1
Регистрация: 16.11.2011
Сообщений: 24
18.11.2011, 22:30 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
max:=a[1];
min:=a[1];
for i:=1 to n do
    begin
    if a[i]>max then
       max:=a[i];
    if a[i]<min then
       min:=a[i];
    end;
sum:=0;
for i:=1 to n do begin 
if (min<>a[i]) and (max<>a[i]) then
sum:=sum +a[i];
end;
1
18.11.2011, 22:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2011, 22:30
Помогаю со студенческими работами здесь

В двумерном массиве найти индекс максимального и минимального элемента
Программа выдает ошибку: нельзя преобразовать тип real к integer. Суть программы: нужно в...

Составить программу и блок-схему поиска минимального и максимального элемента в массиве
Программа поиска минимального и максимального элемента в одномерном массиве.

Выполнить поиск максимального и минимального элементов в массиве за один цикл
Выполнить поиск максимального и минимального элементов в массиве за один цикл. Смог только в два...

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

Перестановка в массиве максимального и минимального элемента
В квадратной матрице в каждой строке переставить ее максимальный и минимальный элементы

Поиск максимального/минимального элемента
Дан массив 20 элементов целого типа. Все значения элементов генерируются случайным образом и лежат...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru