|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.10.2011, 20:51 | #1 (permalink) |
Member
Регистрация: 24.08.2010
Сообщений: 65
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Поиск двух MAX в одномерном массиве
Я считаю, что недочет идет во 2м IF'e program qq; uses crt; const N = 5; var a: array [1..N] of integer; i, Max, Maxx: integer; begin clrscr; randomize; writeln('Исходный массив'); for i:=1 to N do begin a[i] := random(20) -10; write(a[i]:4); end; Max := a[1]; for i:=2 to N do begin if a[i] > Max then Max :=a[i] else if (Max>Maxx) and (maxx>a[i]) then maxx:=a[i]; end; <<<Вот здесь writeln; writeln(max:4, maxx:4); end. |
15.10.2011, 20:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Внимательно прочитайте содержимое этих тем Разработать функцию для определения количества нулей в одномерном массиве Массивы Паскаль, поиск максимальных и минимальных значений в массиве Поиск по MAC-адресу Браузер и поиск Поиск по умолчанию |
15.10.2011, 21:00 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Сформулируйте внятно задачу - о каких двух максимумах идет речь? О максимальном числе и следующим за ним по величине?
|
15.10.2011, 22:27 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Тогда например так:
Код:
uses crt; const N = 5; var a: array [1..N] of integer; i, Max, Maxx: integer; begin clrscr; randomize; writeln('Исходный массив'); for i:=1 to N do begin a[i] := random(20) -10; write(a[i]:4); end; Max := a[1]; for i:=2 to N do if a[i]>Max then Max:=a[i]; Maxx:=-12; for i:=1 to N do if (a[i]>Maxx) and (a[i]<Max) then Maxx:=a[i]; writeln; writeln(max:4, maxx:4); readln; end. |
15.10.2011, 23:22 | #5 (permalink) |
Member
Регистрация: 24.08.2010
Сообщений: 65
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо, все получилось
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|