Реализация процедуры поиска max элемента одномерного массива

Posted by obzor under Delphi, Pascal

Реализовать процедуру поиска max элемента одномерного массива ,а затем прибавить max значение ко всем его элементам . Можно пожалуйста полностью программу . Просто недавно начал работать с Delphi.

Artsiom

Давай функцией?

type
  arr = array[0..4] of integer;

var
  myarr : arr;
  I : integer;

function myproc (massiv : arr) : arr;
var
  I : integer;
  max : integer;
begin
  max := 0;
  for I := Low(massiv) to High(massiv) do
    if massiv[ i] > max then
      max := massiv[ i];
  for I := Low(massiv) to High(massiv) do
    massiv[ i] := massiv[ i] + max;

  Result := massiv;
end;

begin
  randomize;
  for I := Low(myarr) to High(myarr) do
    myarr[ i] := Random(11);

  for I := Low(myarr) to High(myarr) do
    writeln(myarr[ i]);
  writeln;

  myarr := myproc(myarr);

  for I := Low(myarr) to High(myarr) do
    writeln(myarr[ i]);

  readln;

end.

тема на форуме

Похожие статьи

• Удалить повторяющиеся элементы из массива (VBA в Excel)
• Сортировка кучей на языке Си
• Pascal — Заполнить массив случайными числами
• PascalABC.net — Заполнить массив случайными числами и найти сумму элементов
• Удаление элементов из одномерного массива
• Замена элементов в двумерном массиве
• Как быть, если полученный массив Excel VBA имеет всего одно значение
• Считывание двумерного массива из потока данных
• Есть ли в массиве А[n] числа В и С и определить, какое из чисел встречается в массиве чаще
• Обнуления массива слов на Ассемблере