Задача с одномерным массивом, Задача с одномерным массивом Опции

[-Ник-]

Переставить минимальный элемент и элемент, равный числу, введенному с клавиатуры. Вывести на экран минимальный элемент и массив до и после изменений. Часные случаи: если несколько минимальных элементов или несколько элементов, равных введенному числу с клавиатуры.

[Client]

Код

uses crt;
var
   a:array[1..50] of integer;
   n,i,k,c,kk,mk:integer;
begin
     clrscr;
     c:=0;
     kk:=0;
     mk:=1;
     writeln(' Vvedite n ');
     read(n);
     writeln(' Vvedite ',n,'- elementov: ');
     for i:= 1 to n do
         read(a[i]);
     writeln(' ishodniy massiv: ');
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' vvedite K ');
     read(k);
     c:=a[1];
     for i:=1 to n do
         begin
              if a[i]<c then
                 begin
                      c:=a[i];
                      mk:=1;
                 end;
              if a[i]=c then
                 inc(mk);
              if a[i]=k then
                 inc(kk)
         end;
     if (mk>2) or (kk>1) then
        begin
             writeln(' neskolko chisel');
             readkey;
             halt
        end;
     for i:= 1 to n  do
         begin
              if a[i]=k then
                 a[i]:=c
              else
              if a[i]=c then
                 a[i]:=k;
         end;
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' min= ',c);
     readkey
end.

Вот, будут вопросы - отвечу

[alter]

Код

uses crt;
var
   a:array[1..50] of integer;
   n,i,k,c,kk,mk:integer;
begin
     clrscr;
     c:=0;
     kk:=0;
     mk:=1;
     writeln(' Vvedite n ');
     read(n);
     writeln(' Vvedite ',n,'- elementov: ');
     for i:= 1 to n do
         read(a[i]);
     writeln(' ishodniy massiv: ');
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' vvedite K ');
     read(k);
     c:=a[1];
     for i:=1 to n do
         begin
              if a[i]<c then
                 begin
                      c:=a[i];
                      mk:=1;
                 end;
              if a[i]=c then
                 inc(mk);
              if a[i]=k then
                 inc(kk)
         end;
     if (mk>2) or (kk>1) then
        begin
             writeln(' neskolko chisel');
             readkey;
             halt
        end;
     for i:= 1 to n  do
         begin
              if a[i]=k then
                 a[i]:=c
              else
              if a[i]=c then
                 a[i]:=k;
         end;
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' min= ',c);
     readkey
end.

Вот, будут вопросы - отвечу

СПС, но если чесно программа не работает вообще. Она не меняет никакие элементы и всегда выводит сообщение neskolko chisel'. Если можеш, то отладь её.

Сообщение отредактировано: alter - 16.11.2007 3:03