Максимальный элемент в целочисленном массиве

@Rita_var · Регистрация: 13.06.2017

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, написать функцию для нахождения максимального элемента в целочисленном массиве. В функцию передается массив, длина массива.

@Puporev · 21.08.2017, 13:20

Delphi

implementation
 
{$R *.dfm}
function max(a:array of integer;n:integer):integer;
var i:integer;
begin
result:=a[0];
for i:=1 to n-1 do
if a[i]>result then result:=a[i];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var mas:array of integer;
    n,i:integer;
begin
randomize;
n:=strtoint(edit1.Text);
setlength(mas,n);
for i:=0 to n-1 do
 begin
  mas[i]:=random(50);
  Label1.Caption:=Label1.Caption+'  '+inttostr(mas[i])
 end;
Showmessage('Максимальный элемент='+inttostr(max(mas,n)))
 
 
end;

@qwertehok · 21.08.2017, 14:53

Не по теме:

Сообщение от Puporev

Label1.Caption:=Label1.Caption+' *'+inttostr(mas[i])

:D :D :D :D
еще паузу поставить и смотреть как цифры бегут

@northener · 22.08.2017, 02:05

Не по теме:

Сообщение от qwertehok

еще паузу поставить и смотреть как цифры бегут

Точнее не бегут, а "скочут" :)

@D1973 · 22.08.2017, 05:52

Не по теме:

Сообщение от Rita_var

Помогите пожалуйста, написать функцию для нахождения максимального элемента в целочисленном массиве

Однако учебный год начинается :D

@northener · 23.08.2017, 01:46

Не по теме:

Сообщение от D1973

Однако учебный год начинается

"учебный год" на этом форуме начался в момент его создания. И этот учебный год никогда не заканчивается по определению! Вот только учебным он является только для единиц из тех, кто задает вопросы на нём. :(

@Rita_var 0 / 0 / 0 Регистрация: 13.06.2017 Сообщений: 3
		1
	Максимальный элемент в целочисленном массиве 21.08.2017, 13:06. Показов 636. Ответов 5 Метки нет (Все метки) Помогите пожалуйста, написать функцию для нахождения максимального элемента в целочисленном массиве. В функцию передается массив, длина массива. 0

@qwertehok
	21.08.2017, 14:53 #3
	Не по теме: Сообщение от Puporev Label1.Caption:=Label1.Caption+' *'+inttostr(mas[i]) :D :D :D :D еще паузу поставить и смотреть как цифры бегут 0

@northener
	22.08.2017, 02:05 #4
	Не по теме: Сообщение от qwertehok еще паузу поставить и смотреть как цифры бегут Точнее не бегут, а "скочут" :) 0

@D1973
	22.08.2017, 05:52 #5
	Не по теме: Сообщение от Rita_var Помогите пожалуйста, написать функцию для нахождения максимального элемента в целочисленном массиве Однако учебный год начинается :D 0

@northener
	23.08.2017, 01:46 Максимальный элемент в целочисленном массиве #6
	Не по теме: Сообщение от D1973 Однако учебный год начинается "учебный год" на этом форуме начался в момент его создания. И этот учебный год никогда не заканчивается по определению! Вот только учебным он является только для единиц из тех, кто задает вопросы на нём. :( 0

Опции темы