-Цитата от motiv 911

-Цитата от Sserebryan

Пузырьком сортируешь, гугл поможет в алгоритме. Запоминаешь номер максимального элемента(индекс), к этой ячейке прибавляешь первый элемент.

так, если я буду сортировать по возраст, например, то ведь у меня максимальный элемент по любому будет последним же... а смысл?
нужно как то без сортировки. Вот я пытался

Показать скрытый текст

Код:

uses crt;
var
a:array[1..100] of Integer;
max,mm,i,n,s    :integer;
begin
clrscr;
textcolor(1);
writeln('Введите размерность массива');
read(n);
 for i:=1 to n do
  begin

write('A[',i,']=');
    readln(a[i]);
          end;
    for i:=1 to n  do
    begin
      write(a[i]:4)
      end;
mm:=1;
max:=a[1];
for i:=2 to n do begin
if a[i] > max then
begin
           max := i;
            mm := a[i];
            end

        end;
        writeln;
for i:=1 to n do begin

    write(a[i]:4);
    end;

readln;

end.

выделил там где не могу приплюсовать A[1]

-Цитата от Ридл Гатофель

Это не вопрос, это просьба нахуярить за тебя прогу

я и сам как видишь попытался.

Акей. Просто изначально ты не написал конкретно, в чём проблема.
Из твоей формулировки задания, я не понял, что тебе надо сделать. Найти максимальный элемент - это понятно. А чё с ним делать? Как должен измениться массив? К первому элементу массива прибавить значение максимального? Если так, то максимум ты находишь правильно. После того, как он найден, прибавь его к первому элементу: a[1] := a[1]+mm;.

Если элемент максимальный, то к нему прибавить первый элемент, а ко всем остальным не максимальным элементам прибавить последний элемент массива