Pascal!!!

[Izymka]

Дано массив действительных (ненулевых) чисел, содержащий n элементов. Заменить в массиве нулями наибольший и наименьший по значениям элементы.
помогите!!! плииииз!!!!!!!!

[Izymka]

у меня не получается!! подскажите где ошибка!!!

program n_7_1;
uses crt;
var
    a:array [1..100] of integer;
    i,n,max,imax,min,imin:integer;
begin
write('n:');readln(n);
for i:=1 to n do
 begin
write('a[',i,']='); read(a[i]);
  end;
writeln;
min:=a[1]; imin:=1;
for i:=1 to n do
if a[i]<min then
begin
 min:=a[i]; imin:=i;
 end;
writeln ('MIN[',imin,']:=',min);
for i:=imin to n-1 do
begin
a[i]:=0
end;
begin
for i:=1 to n do
writeln('a[',i,']=',a[i]);
end;
max:=a[1];imax:=1;
for i:=1 to n do
 if a[i]>max then
 begin
  max:=a[i];imax:=i;
  end;
  writeln ('MAX[',imax,']:=',max);
  for
begin
a[i]:=0
end;
begin
for i:=1 to n do
writeln('a[',i,']=',a[i]);
end;
end.

[bag]

Держи подправленный код:

program n_7_1;

uses crt;

var
  a:array [1..100] of integer;
  i,n,max,imax,min,imin:integer;

begin
  write('n:');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
    read(a[i]);
  end;
  writeln;
  min:=a[1];
  imin:=1;
  for i:=1 to n do
    if a[i]<min then
    begin
      min:=a[i];
      imin:=i;
    end;
  writeln ('MIN[',imin,']:=',min);
  a[imin]:=0;                           {Dobavil}

  { Eto nado ubrat:
    for i:=imin to n-1 do
    begin
    a[i]:=0
    end;
    begin
    for i:=1 to n do
    writeln('a[',i,']=',a[i]);
    end;
  }

  max:=a[1];
  imax:=1;
  for i:=1 to n do
    if a[i]>max then
    begin
      max:=a[i];
      imax:=i;
    end;
  writeln ('MAX[',imax,']:=',max);
  a[imax]:=0;                           {Dobavil}

  { Eto nado ubrat:
    for
    begin
    a[i]:=0
    end;
    begin
  }

  for i:=1 to n do
    writeln('a[',i,']=',a[i]);

  { Eto tozge lishnee:
     end;
  }
end.

[Izymka]

да, спасибо, но все равно обнуляется еще один элемент(причем любой)(((((((

[bag]

Вроде все нормально. Обнуляются только 2 элемента: наименьший и наибольший

[Izymka]

program n_7_1;

uses crt;

var
  a:array [1..100] of integer;
  i,n,max,imax,min,imin:integer;

begin
  write('n:');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
    read(a[i]);
  end;
  writeln;
  min:=a[1];
  imin:=1;
  for i:=1 to n do
    if a[i]<min then
    begin
      min:=a[i];
      imin:=i;
    end;
  writeln ('MIN[',imin,']:=',min);
  a[imin]:=0;                           {Dobavil}
max:=a[1];
  imax:=1;
  for i:=1 to n do
    if a[i]>max then
    begin
      max:=a[i];
      imax:=i;
    end;
  writeln ('MAX[',imax,']:=',max);
  a[imax]:=0;                           {Dobavil}

  for i:=1 to n do
    writeln('a[',i,']=',a[i]);
end.

точно!!!!!!! во я баран!!!!!!!! спасибочки!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!

[bag]

Можно намного короче и проще:

program n_7_1;
uses crt;
var
  a:array [1..100] of integer;
  i,n,imax,imin:integer;
begin
  clrscr;
  write('n:');
  readln(n);
  imin:=1;
  imax:=1;
  for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
    if a[i]<a[imin] then
      imin:=i;
    if a[i]>a[imax] then
      imax:=i;
  end;
  writeln ('MIN[',imin,']:=',a[imin]);
  writeln ('MAX[',imax,']:=',a[imax]);
  a[imin]:=0;
  a[imax]:=0;
  for i:=1 to n do
    writeln('a[',i,']=',a[i]);
  readkey;
end.