помогите пожалуйста с массивом

[bender90]

Задание такое: Дан массив из n элементов. Найти max и его позиции (с учетом повторений)

вот найти max я смог:

program massiv;
type
mas = array [1..5] of Integer;
var
a: mas;
i: byte;
max,t: Integer;
begin
{Заполняем массив}
for i := 1 to 5 do
begin
Write('Введите значение элемента a[',i,']=');
Readln(a[i]);
end;
{Найдем максимальный элемент}
max:=a[1];
for i:=2 to 5 do
begin
if a[i]>max then
max:=a[i];
end;
writeln('Максимальный элемент = ',max);
Readln;
end.

а как найти позиции?

[Stepler]

Найти max и его позиции (с учетом повторений)

Если правильно понял то нужно вывести все позиции когда был найден каждый следующий елемент массива который больше предидущего max.

program massiv;
type
mas = array [1..5] of Integer;
var
a: mas;
i: byte;
max,t: Integer;
begin
{Заполняем массив}
for i := 1 to 5 do
begin
Write('Введите значение элемента a[',i,']=');
Readln(a[i]);
end;
{Найдем максимальный элемент}
max:=a[1];
write('1 ');
for i:=2 to 5 do
begin
if a[i]>max then
 begin
  max:=a[i];
  write(i,' ');
 end;
end;
writeln('Максимальный элемент = ',max);
Readln;
end.

[puporev]

program massiv;
type
mas = array [1..5] of Integer;
var
a: mas;
i: byte;
max,t: Integer;
begin
{Заполняем массив}
for i := 1 to 5 do
begin
Write('Введите значение элемента a[',i,']=');
Readln(a[i]);
end;
{Найдем максимальный элемент}
max:=a[1];
for i:=2 to 5 do
begin
if a[i]>max then
max:=a[i];
end;
writeln('Максимальный элемент = ',max);
for i:=1 to 5 do
if a[i]=max then write(i,' ');Readln;
end.

[bender90]

спасибо!!!, оказывается все так просто, а я голову ломал)

[Plague]

to puporev, а если в массиве 1 миллион элементов
то вы будете весь массив просматривать и сравнивать
текущий элемент с максимальным?
Это не оптимально.

[puporev]

а если в массиве 1 миллион элементов

Вы случайно ничего не объелись?

[Serge_Bliznykov]

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

Вы случайно ничего не объелись?

:-))))


2 Plague, во первых, Вы не обратили внимание, что тут рассматривается Паскаль?
Напоминаю, что под переменные (все!) выделяется один сегмент данных - это в MS DOS 64 Кб и ни байтом больше!
a: array[1..32768] of integer;
уже не откомпилируется (даже если не будет других переменных)...

во 2-х - это учебная задача. Люди изучают циклы, условные операторы и т.д. а оптимальный алгоритм - в данной задаче, например, я красивого решения НЕ ВИЖУ ;-( можно динамические списки мутить... но с ними накладных расходов будет - мама не горюй! вся оптимизация на на создание/удаление динамических элементов и уйдёт... ;-(

[Serge_Bliznykov]

хотя нет. Мне кажется, есть эффективный способ.
Тут как раз можно использовать строки.
Куда дописывать найденные индексы максимальных элементов!
При нахождении очередного максимума - обнулять строку и писать туда новый индекс:

begin
  if a[i]=max then begin
    max:=a[i];
    Val(ss,i);
    s := s + ',' + ss;
  end
  else
  if a[i]>max then begin
    max:=a[i];
    Val(s,i);
  end;
end;
Writeln('Максимальный элемент = ',max);
WriteLn('найдено в позициях: ',s);

[Plague]

Как раз на это и обратил внимание что тут исползуется паскаль.
Borland Pascal, Turbo Pascal, Free Pascal, PascalABC.Net, может
console Borland Delphi или Lazarus? Какой?
определитесь.
И не надо говорить что размер массива может быть 32768.
Его размер в Паскале может быть гораздо больше
смотря конечно в каком Паскале.