Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента

@Bakamokara · Регистрация: 03.05.2017

Author24 — интернет-сервис помощи студентам

Дан массив b[10], заполненный с клавиатуры. Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента.
Пытался с кода паскаль сделать, но не работает

@Matan! · 04.05.2017, 10:27

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

Пытался с кода паскаль сделать, но не работает

Где код? Покажите, пожалуйста.

Есть два способа. Первый - отсортировать по убыванию, например, и вывести в качестве ответа первые два элемента.
Второй - найти макс.элемент, записать его в переменную max1, затем искать макс.элемент max2 с условием max2 <> max1.

@Bakamokara · 04.05.2017, 10:35 **[ТС]**

Pascal

b: array [1..10] of integer;
max,index,i: integer;
begin
writeln ('Г‡Г*ГЇГ®Г«Г*ГЁГІГҐ Г¬Г*Г±Г±ГЁГў Г± ГЄГ«Г*ГўГЁГ*ГІГіГ°Г»');
for i:=1 to 10 do
readln(b[i]);
 
for i:=1 to 10 do
if b[i]>max then begin
index:=i;
max:=b[i];
end;
writeln('ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»ГҐ ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ* ',max);
writeln('Г…ГЈГ® Г*Г®Г¬ГҐГ° Г±ГІГ®Г«ГЎГ¶Г* ГЁГ«ГЁ i = ',index);
end;

Код с паскаля, поэтому криво выглядет

@Matan! · 04.05.2017, 10:53

Здесь

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

writeln('ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»ГҐ ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ* ',max);

Вы вывели макс.элемент, а в следующей строке - его индекс. Про индекс в ТЗ ничего не сказано, поэтому нет смысла и выводить его.
Кроме того, проинициализируйте max хотя бы 0 в начале программы:

Delphi

max := 0;

Добавлено через 5 минут
Вот, теперь заведите переменную max2:

Delphi

max2 : Integer;
...............
max2 := 0;
.........
for...................// в этом цикле находили макс.элемент max
..........
for i:=1 to 10 do
if (b[i]>max2) and (max2 <> max) then begin
max2:=b[i];
end;
 
writeln('Пред_макс. элемент: ',max2);

Добавлено через 47 секунд
Правда, выглядит не совсем оптимально, как мне кажется...

@Puporev · 04.05.2017, 10:58

Сообщение от Matan!

max2 с условием max2 <> max1.

А если 2 одинаковых максимальных?
В паскале.

Pascal

const n=10;
var b:array[1..n] of integer;
    i,mx1,mx2:integer;
begin
writeln('Введите элементы массива');
for i:=1 to n do
readln(b[i]);
if b[1]>b[2] then
 begin
  mx1:=b[1];
  mx2:=b[2];
 end
else
 begin
  mx1:=b[2];
  mx2:=b[1];
 end;
for i:=3 to n do
if b[i]>mx1 then
 begin
  mx2:=mx1;
  mx1:=b[i];
 end
else if b[i]>mx2 then mx2:=b[i];
writeln('Первый максимальный=',mx1,' второй максимальный=',mx2)
end.

Добавлено через 1 минуту

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

Код с паскаля, поэтому криво выглядет

Интересно с какого это Паскаля что перекодировать не могу?

Добавлено через 1 минуту
Наверное в Lazarus?

@Bakamokara · 04.05.2017, 10:58 **[ТС]**

Я в принципе не могу в делфи его засунуть, я не понимаю где что заменить

@Matan! · 04.05.2017, 11:07

Не по теме:

Ай-да дядя Puporev:bravo:

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

А если 2 одинаковых максимальных?

И правда, не смекнул. Если два одинаковых макс., то в моём коде второй макс проигнорируется, и найдёт меньшее макс.число. Но это так, для ТС-а..

Добавлено через 1 минуту

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

Я в принципе не могу в делфи его засунуть, я не понимаю где что заменить

Создаёте Console Application и просто ~~копипастите~~вставляете...

@Puporev · 04.05.2017, 11:08

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var b:array[1..n] of integer;
    i,mx1,mx2:integer;
begin
for i:=1 to n do
b[i]:=strtoint(StringGrid1.Cells[i-1,0]);
if b[1]>b[2] then
 begin
  mx1:=b[1];
  mx2:=b[2];
 end
else
 begin
  mx1:=b[2];
  mx2:=b[1];
 end;
for i:=3 to n do
if b[i]>mx1 then
 begin
  mx2:=mx1;
  mx1:=b[i];
 end
else if b[i]>mx2 then mx2:=b[i];
Label1.Caption:='Первый максимальный='+inttostr(mx1)+
                ' второй максимальный='+inttostr(mx2);
end;

@Bakamokara · 04.05.2017, 11:10 **[ТС]**

В этом то и дело, консоль не работает в версии, в которой работаю

@Matan! · 04.05.2017, 11:11

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

В этом то и дело, консоль не работает в версии, в которой работаю

Что же это за версия Delphi такая?

@Puporev · 04.05.2017, 11:15

Если совсем плохой, то в инспекторе объектов для StringGrid нужно выставить colcount=10, rowcount=1, fixedcols=0, fixedrows=0, в Options goEditing=true, goTabs=true.

Добавлено через 1 минуту

Не по теме:

Сообщение от Matan!

Что же это за версия Delphi такая?

Наверное сам написал...

@Matan! · 04.05.2017, 11:22

Не по теме:

Puporev,

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

в инспекторе объектов для StringGrid

боюсь, придётся объяснять, что такое StringGrid и откуда он берётся..

@Puporev · 04.05.2017, 11:24

Не по теме:

А также что такое инспектор объектов и где он находится..

@D1973 · 04.05.2017, 17:28

Не по теме:

и, заодно уж, что такое Delphi...

@Bakamokara 0 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 16
		1
	Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента 04.05.2017, 09:59. Показов 5191. Ответов 13 Метки нет (Все метки) Дан массив b[10], заполненный с клавиатуры. Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента. Пытался с кода паскаль сделать, но не работает 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	04.05.2017, 10:27	2
	Сообщение от Bakamokara Пытался с кода паскаль сделать, но не работает Где код? Покажите, пожалуйста. Есть два способа. Первый - отсортировать по убыванию, например, и вывести в качестве ответа первые два элемента. Второй - найти макс.элемент, записать его в переменную max1, затем искать макс.элемент max2 с условием max2 <> max1. 0

@Bakamokara 0 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 16
	04.05.2017, 10:58 [ТС]	6
	Я в принципе не могу в делфи его засунуть, я не понимаю где что заменить 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	04.05.2017, 11:07	7
	Не по теме: Ай-да дядя Puporev:bravo: Сообщение от Puporev А если 2 одинаковых максимальных? И правда, не смекнул. Если два одинаковых макс., то в моём коде второй макс проигнорируется, и найдёт меньшее макс.число. Но это так, для ТС-а.. Добавлено через 1 минуту Сообщение от Bakamokara Я в принципе не могу в делфи его засунуть, я не понимаю где что заменить Создаёте Console Application и просто ~~копипастите~~вставляете... 0

@Bakamokara 0 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 16
	04.05.2017, 11:10 [ТС]	9
	В этом то и дело, консоль не работает в версии, в которой работаю 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	04.05.2017, 11:11	10
	Сообщение от Bakamokara В этом то и дело, консоль не работает в версии, в которой работаю Что же это за версия Delphi такая? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.05.2017, 11:15	11
	Если совсем плохой, то в инспекторе объектов для StringGrid нужно выставить colcount=10, rowcount=1, fixedcols=0, fixedrows=0, в Options goEditing=true, goTabs=true. Добавлено через 1 минуту Не по теме: Сообщение от Matan! Что же это за версия Delphi такая? Наверное сам написал... 0

@Matan!
	04.05.2017, 11:22 #12
	Не по теме: Puporev, Сообщение от Puporev в инспекторе объектов для StringGrid боюсь, придётся объяснять, что такое StringGrid и откуда он берётся.. 0

@Puporev
	04.05.2017, 11:24 #13
	Не по теме: А также что такое инспектор объектов и где он находится.. 0

@D1973
	04.05.2017, 17:28 Определить максимальный элемент массива и элемент, являющийся максимальным без учета этого элемента #14
	Не по теме: и, заодно уж, что такое Delphi... 0