*Найти номер первого экстремального(т.е. минимального или максимального) из данных десяти целочисленных элементов.
Не работают номера минимума и максимума. При любом значении выдаёт 10.
Первый раз работаю с процедурами, может где в процедуре накосячила?
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 -