Создать функцию, находящую номер максимального элемента

NimFa

Дата: Четверг, 20.11.2008, 22:42 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 10

Репутация: 0

Замечания: 0%

Статус: Offline

Помогите найти ошибку!!!!!
Задача звучит так: Описать функцию MaxNum (a,n) целого типа, находящую номер максимального элемента вещественного массива а размера n. C помощью этой функции найти номер максимального эл-та.

Code

uses crt;
var i,n,nn:  integer;
a:array [1..100] of real;

function MaxNum (var a:array [1..100] of real; var n: integer) : integer;
var max:real;
begin
  max:= a[1];
     for i:=1 to n do
      begin
       if a[i]> max then
        begin
         nn:=i;
        end;
      end;
  end;

begin
  randomize;

    write ('Введите размер массива: ');
    readln(n);
    writeln ('Массив а:');

    for i:= 1 to n do
     begin
      a[i]:=random *5;
      write(a[i]:0:2,'  ');
     end;

  writeln;
   writeln ('Номер максимального=  ',MaxNum(a,n));
end.

Seqular

Дата: Суббота, 22.11.2008, 22:01 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Заюзай такой вариант:

Code

Uses CRT;
Const MAX = 50;
Var B: Array[1..MAX] of Real;
     i: Integer;
     ne: Integer;

Function MaxNum(a: Array of Real; n: Integer): Integer;
Var max_e: Real;
     max_i: Integer;

Begin
max_e := a[0];
max_i := 0;
For i := 1 to n-1 do
     Begin
     If (a[i] > max_e) then
        Begin
        max_e := a[i];
        max_i := i;
        End;
     End;
MaxNum := max_i+1;
End;

Begin
ClrScr;
Randomize;
Write('Count of elements: '); Readln(ne);
Writeln('Array:');
For i := 1 to ne do
     Begin
     B[i] := Random * 5;
     Write(B[i]:0:2, ' ');
     End;
Writeln;
Writeln('MaxNum: ',MaxNum(B,ne), ' MaxVal: ',B[MaxNum(B,ne)]:0:2);
ReadKey;
End.

Поддерживаю также проект сообщество молодых сисадминов