Подпрограмма поиска максимального элемента одномерного массива.

[Viktory.nvrn]

Задача:
Найти максимальные элементы одномерных массивов a,b,c и их номера. Подпрограмму поиска максимума оформить в виде процедуры. Ввод массивов оформить через randomize.

procedure degree(k:array of integer);
var i:integer; max:integer; imax:integer;
begin
max:=k[1];
imax:=1;
for i:=2 to 5 do
begin if k[i]>max then max:=k[i]; imax:=i;
end;
end;
var a:array[1..5] of integer;
b:array[1..5] of integer;
c:array[1..5] of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(10);
write(a[i]:2);
degree(a[i]);
end;
writeln;
for i:=1 to 5 do
begin
b[i]:=random(10);
write(b[i]:2);
degree(b[i]);
end;
writeln;
for i:=1 to 5 do
begin
c[i]:=random(10);
write(c[i]:2);
degree(c[i]);
end;
writeln(a[i],b[i],c[i]);
readln;
end.



вот это у меня получилось =( помогите исправить. заранее, спасибо

[b2soft]

давайте помогу - аська 581751789

Напишем вместе

[Don Karleone]

procedure degree(k:array of integer); 
var i:integer; max:integer; imax:integer;
begin
max:=k[1]; 
imax:=1; 
for i:=2 to 5 do
begin if k[i]>max then max:=k[i]; imax:=i;
end;
end;

Только оформить надо лучше в виде функции, и выглядеть это должно так:

type
  Tmas: array [1..5] of integer;
............

// функция вернет индекс максимального элемента
function Max(k: array of Tmas): integer;
var
  i: integer;
begin
  Imax;  // изначально считаем, что максимальным является 1-й элемент
  for i:=1 to High(Tmas) do
    if k[i] > k[Imax] then Imax:=i;
  Max:=Imax
end.

ну а если в виде процедуры:

procedure Max(k: array of Tmas, var MaxCount: integer);
var
  i: integer;
begin
  Imax;  // изначально считаем, что максимальным является 1-й элемент
  for i:=1 to High(Tmas) do
    if k[i] > k[Imax] then Imax:=i;
  MaxCount:=Imax
end;