Поиск двух MAX в одномерном массиве

ljrerby · 15.10.2011, 20:51

Вообщем написал задачу, все вроде ничего, но вот первый МАХ считает, а вот 2й никак. Вид программы должен остаться такой же.
Я считаю, что недочет идет во 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.

Vladimir_S · 15.10.2011, 21:00

Сформулируйте внятно задачу - о каких двух максимумах идет речь? О максимальном числе и следующим за ним по величине?

ljrerby · 15.10.2011, 21:18

Да, именно так
Пример. Исходный массив: -5 0 6 -8 1
Должно выйти 6 1

Vladimir_S · 15.10.2011, 22:27

Цитата:

Сообщение от ljrerby

Да, именно так
Пример. Исходный массив: -5 0 6 -8 1
Должно выйти 6 1

Тогда например так:

Код:

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.

ljrerby · 15.10.2011, 23:22

спасибо, все получилось

15.10.2011, 20:51	#1 (permalink)
ljrerby Member Регистрация: 24.08.2010 Сообщений: 65 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Поиск двух MAX в одномерном массиве Вообщем написал задачу, все вроде ничего, но вот первый МАХ считает, а вот 2й никак. Вид программы должен остаться такой же. Я считаю, что недочет идет во 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, 21:00	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Сформулируйте внятно задачу - о каких двух максимумах идет речь? О максимальном числе и следующим за ним по величине?

15.10.2011, 21:18	#3 (permalink)
ljrerby Member Регистрация: 24.08.2010 Сообщений: 65 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Да, именно так Пример. Исходный массив: -5 0 6 -8 1 Должно выйти 6 1

15.10.2011, 23:22	#5 (permalink)
ljrerby Member Регистрация: 24.08.2010 Сообщений: 65 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо, все получилось

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070