Экстремум ряда(с процедурой), До завтра! Опции

[Наська]

Помогите!!!!! До завтра!
*Найти номер первого экстремального(т.е. минимального или максимального) из данных десяти целочисленных элементов.

Не работают номера минимума и максимума. При любом значении выдаёт 10.

Первый раз работаю с процедурами, может где в процедуре накосячила?

Код

program proced;
type
vector=array [-327..327] of real;
var
    a:vector;
    rmax:real;
    nmax:integer; {nomer max}
    i,j:integer;
    rmin:real;
    nmin:integer; {nomer min}
procedure extremum(a:vector; L:integer; var rmax:reak; nmax:integer; var rmin:real; var nmin:integer);
var
    j:integer;
begin
    L:=10;
    rmax:=a[1]; nmax:=1;
    for j:=2 to L do
    begin
       if a[j]>rmax then
       rmax:=a[j]; nmax:=j
     end;
end;
begin
     writeln('BBedite 10 celux chisel);
     for i:=1 to 10 do
     begin
         write('a[',j,']='); read(a[j]);
     end;
     extremum(a,10,rmax,nmax,rmin,nmin);
     if nmax<nmin then writeln('max=',rmax:4:0, '  nomer=', nmax);
     if nmax>nmin then writeln('min=',rmin:4:0, '  nomer=', nmin);
     if nmax=nmin then writeln('Rjd sostoit iz ', rmax);
end.

PLEASE, HELP ME!!!!!!!!!!!!

Сообщение отредактировано: volvo - 9.10.2006 17:18

[Atos]

Вот сюда

Код

if a[j]>rmax then
rmax:=a[j]; nmax:=j

ты забыла добавить begin end
Правильно

Код

if a[j]>rmax then
   begin
   rmax:=a[j];
   nmax:=j
   end;

То же самое и для rmin

[Наська]

Ой, спасиб те большое!!! дура деревенская;) Окей, гуд!