0 / 0 / 0
Регистрация: 16.12.2012
Сообщений: 14
1

Дан массив из 10 чисел.Найти сумму двух самых больших по значению элементов массива и напечатать ее значение

23.01.2013, 20:38. Показов 2654. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста,
Дан массив из 10 чисел.Найти сумму двух самых больших по значению элементов массива и напечатать ее значение.
Нужно сделать через исключения: сначала находим максимальный элемент, запоминаем его и убираем в конец, потом среди оставшихся (9) опять ищем максимальный и запоминаем его. Находим их сумму и выводим.
заранее спасибо
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2013, 20:38
Ответы с готовыми решениями:

Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива.
Задан массив вещественных чисел М длины k. Найти сумму и среднее арифметическое n (n&lt;=k) самых...

Дан массив целых чисел. Найти сумму элементов массива, больших данного числа А
Задание 6. Составить программы по обработке элементов массива:Дан массив целых чисел. Найти сумму...

Вывести номера и значение двух самых больших элементов массива
одномерные массивы и сложный поиск. создать и вывести массив у с элементами вывести номера и...

Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30
Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30.

2
123 / 123 / 82
Регистрация: 03.01.2013
Сообщений: 242
23.01.2013, 21:07 2
Лучший ответ Сообщение было отмечено Kseniaksenia как решение

Решение

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
32
33
34
35
36
37
38
const n=10;
var a : array[1..n] of integer;
    i,maxi : byte;
    max,c : integer;
    sum : integer;
begin
     randomize();
     for i:=1 to n do
         a[i] := random(20);
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     max := a[1];
     for i:=1 to n do begin
         if (a[i]>max) then begin
            max := a[i];
            maxi := i;
         end;
     end;
     writeln('Max: ',max);
     c := a[n];
     a[maxi] := a[n];
     a[n] := max;
     sum := 0;
     sum := sum+max;
     for i:=1 to n-1 do
         write(a[i],' ');
     writeln;
     max := a[i];
     for i:=1 to n-1 do begin
         if (a[i]>max) then
            max := a[i];
     end;
     writeln('Max: ', max);
     sum := sum+max;
     writeln('Sum: ', sum);
     readln;
end.
1
0 / 0 / 0
Регистрация: 16.12.2012
Сообщений: 14
24.01.2013, 12:51  [ТС] 3
спасибо огромное))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2013, 12:51
Помогаю со студенческими работами здесь

Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30
Дан двумерный массив целых чисел. Определить сумму элементов массива больших 30.

Составить программу нахождения двух самых больших (самых маленьких) элементов массива
Нужно решить до завтрешнего утра (8:00 - 9:00 крайние сроки) Составить программу нахождения двух...

Дан массив размера N. Найти номера двух ближайших по значению элементов из этого массива
Ребятки помогите с задачей Дан массив размера N. Найти номера двух ближайших по значению...

Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших некоторой величины
Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших...


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

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

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