Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
7th
Дек
Реализация процедуры поиска max элемента одномерного массива
Posted by obzor under Delphi, Pascal
Реализовать процедуру поиска max элемента одномерного массива ,а затем прибавить max значение ко всем его элементам . Можно пожалуйста полностью программу . Просто недавно начал работать с Delphi.
Давай функцией?
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.
Похожие статьи
