Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/48: Рейтинг темы: голосов - 48, средняя оценка - 4.85
Osgilat
1 / 1 / 0
Регистрация: 29.03.2012
Сообщений: 40
1

Массивы. Найти 2 максимальных элемента массива

14.05.2012, 17:34. Просмотров 8819. Ответов 1
Метки нет (Все метки)

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;
const n=10;
 Var a:array [1..n] of integer;
  i,max1,max2:integer;
  Begin
  randomize;
  For i:=1 to n do
a[i]:=random(10);
 
 
  If a[1]<a[2] then
  begin max2:=a[1];
 max1:=a[2] end  else
    max2:=a[2];
    max1:=a[1];
    For i:=3 to n do
     begin
     if (a[i]>max1)   then
                   begin
                     max2:=max1;
                     max1:=a[i];
 
 
               end;
               end;
          For i:=1 to n do
            Writeln (a[i]:3);
 
 Writeln ('max1=',max1);
 Writeln ('max2=',max2);
 end.

Надо найти 2 максимальных члена массива. Подскажите, в чём ошибка?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2012, 17:34
Ответы с готовыми решениями:

Заполните массив случайными числами и найти два максимальных элемента массива и их номера
42) Заполните массив случайными числами и найти два максимальных элемента...

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

Найти в матрице 3 максимальных элемента
3. Найти в матрице 3 максимальных элемента. Указать номер строки с min-ым...

Найти два максимальных элемента последовательности
Дана последовательность чисел a1 ,a2,...,an,где n≥3 :найти два максимальных...

Найти в массиве 2 максимальных элемента и их номера
Доброго времени суток) Помогите пожалуйста! Заполнить массив из 10 элементов...

1
UserABC
Pascal +
132 / 131 / 127
Регистрация: 16.03.2011
Сообщений: 461
14.05.2012, 22:17 2
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
39
40
41
const
    n = 10; { ×èñëî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* }
var
    arr: array[1..n] of integer;
    i, max1, max2, temp: integer;
begin
    { Г‡Г*ïîëГ*ГїГҐГ¬ Г¬Г*Г±Г±ГЁГў ñëó÷Г*Г©Г*ûìè ýëåìåГ*ГІГ*ìè ГЁ âûâîäèì ГҐГЈГ® Г*Г* ГЅГЄГ°Г*Г* }
    Randomize;
    Write('ÑãåГ*åðèðîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў:');
    for i := 1 to n do begin
        arr[i] := random(100);
        Write(' ', arr[i]);
    end;
    WriteLn;
    
    { Äëÿ Г*Г*Г·Г*Г«Г* ïðåäïîëîæèì, Г·ГІГ® ïåðâûå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* ÿâëÿþòñÿ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûìè }
    { (ÏðåäïîëîãГ*ГҐГІГ±Гї, Г·ГІГ® Гў Г¬Г*Г±Г±ГЁГўГҐ ГҐГ±ГІГј õîòÿ ГЎГ» äâГ* ýëåìåГ*ГІГ*) }
    max1 := arr[1];
    max2 := arr[2];
    { ГЏГіГ±ГІГј áîëüøèé ГЁГ§ Г*ГЁГµ áóäåò Гў max1, Г* ìåГ*ГјГёГЁГ© Гў max2 }
    if max1 < max2 then begin
        temp := max1;
        max1 := max2;
        max2 := temp;
    end;
    
    { ÏðîñìГ*òðèâГ*ГҐГ¬ îñòГ*ГўГёГЁГҐГ±Гї ýëåìåГ*ГІГ» }
    for i := 3 to n do begin
        { Åñëè ñëåäóþùèé ýëåìåГ*ГІ áîëüøå, Г·ГҐГ¬ ìèГ*ГЁГ¬Г*ëüГ*ûé ГЁГ§ óæå Г§Г*ïîìГ*ГҐГ*Г*ûõ, Г§Г*ïîìèГ*Г*ГҐГ¬ ГҐГЈГ® }
        if arr[i] > max2 then max2 := arr[i];
        { Óäîñòîâåðÿåìñÿ, Г·ГІГ® áîëüøèé ГЇГ® ïðåæГ*åìó Гў max1 }
        if max1 < max2 then begin
            temp := max1;
            max1 := max2;
            max2 := temp;
        end;
    end;
    
    WriteLn('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ - ', max1);
    WriteLn('Ñëåäóþùèé Г§Г* Г*ГЁГ¬ - ', max2);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2012, 22:17

Найти два максимальных элемента в одномерном массиве
Если не трудно решите задачку, пожалуйста!!! Заполнить массив из 10 элементов...

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

Найти в матрице 3 максимальных элемента, указать номер строки с минимальным элементом
Помогите решить для знаний


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

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

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