задача массив

[veronik0095]

вроде все верно но при вводе чисел 4 7 1 23 56 29 должны получиться 4 7 56 23 1 29 вот в чем дело то

[VIK_aka_TOR]

var
mas: array [1..100] of integer;
k,min, max, i, buf: integer;
f: Text;
Begin
assign(f, 'abc.txt');
reset(f);
k := 0;
while Not eof(f) do begin
    k:= k +1;
    read(f, mas[k]);
    end;
close(f); 

min := 1;
max := 1;
for i:=2 to k do 
  begin
   if mas[i] < mas[min] then 
      min :=i;
   if mas[i]> mas[max] then 
      max :=i;
  end;

buf := mas[min];
mas[min] := mas[max];
mas[max] := buf; 
writeln;
assign(f, 'abcd.txt');
rewrite(f);
for i:=1 to k do
  write(f,mas[i], ' ');
close(f);
readln;  
end.

да будет тебе счастье... файлики при желании переименуешь... запускать только при наличии рядом текстового файла с числами...

[veronik0095]

спасибочки вам большущее очень благодарна=)