-Цитата от Sserebryan

-Цитата от motiv 911

вопрос про паскаль
как к найденному максимальному значению одномерного массива прибавить первый элемент массива и вывести измененный массив, в котором max +arr[1]?

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

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

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

Код:

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]

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

-Цитата от motiv 911

вопрос про паскаль
как к найденному максимальному значению одномерного массива прибавить первый элемент массива и вывести измененный массив, в котором max +arr[1]?

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

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