
Последние записи
- Кодировка в INDY 10 (как бороться с «???»)
- Переход по ссылке при клике на кнопку, счётчик кликов по кнопке и число переходов по ссылке на ява скрипт
- Сравнение двух диапазонов ячеек Excel на полное совпадение данных
- С++. Как напечатать в консоли два столбца?
- Конвертирование PNG в JPG на Delphi
- Можно ли, название сайта которое находится в шапке заключать в HTML тег h1 или h2 h3 h4 h5 h6?
- как бороться со знаками вопросов при проблеме с кодировкой в INDY 10 Delphi ?
- Связать ProgressBar + скорлинг в Texbox
- RichEdit и выгрузка в RTF-файл (добавление в конец файла)
- Чтение разделов из IniFile / MemIniFile

Оплата за обучение в Kata Academy только после твоего трудоустройства в IT
Начни карьеру Middle Java-разработчика, подробнее на сайте академии, ссылка - https://clck.ru/fCrQw

Интенсив по Python - 3-5 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
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.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)