Паскаль. Массивы

[VD1988]

Помогите написать задачу в Turbo Pascal: Дан целочисленный массив a1,a2,…,an. Если в массиве нет ни одной компоненты с заданным значением К, то первую по порядку компоненту этого массива, большую всех остальных компонент, заменить на это значение К.

[Lemo]

Если я все правильно понял[поменять местами найбольший елем массива с введенным числомб если нет елема массива зо значение введеного числа ] , то код ниже

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  const
  n=10;

  var
  a:array[1..n] of integer;
  i,k,max,c,b:integer;

begin

  randomize;
  for i := 1 to n do
    begin
      a[i]:=random(25)+1;
      write(a[i],' ');
    end;

      writeln;
    writeLn('k= ');
    readln(k);


    c:=0;
    max:=a[1];
    for I := 1 to n do
    begin
      if max<a[i] then
            begin
              max:=a[i];
              c:=i;
            end;


     end;

      writeLn('max= ', max);

      for I:= 1 to n do
      begin
      if a[i]<>k then
      begin
              b:=a[c];
              a[c]:=k;
              k:=a[c];

      end;

      end;

     for i := 1 to n do
    begin

      write(a[i],' ');
    end;
         writeln;



    readln;

end.

Тулоько тут еще нуно вывести соостветствующее сообщение, если значение переменной К уже есть в массиве и не выводить массив...
ЗЫ:писал на делфях, в паскаль 2 мин переделать, сможете и сами...

[VD1988]

Как вывести соостветствующее сообщение, если значение переменной К уже есть в массиве и не выводить массив?

Напишите пожалуйста полный текст программы! Спасибо!!!

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 const
  n=10;

  label endd;
  var
  a:array[1..n] of integer;
  i,k,max,c,b:integer;
  flag:Boolean;

begin
   flag:=false;
  randomize;
  for i := 1 to n do
    begin
      a[i]:=random(25)+1;
      write(a[i],' ');
    end;

      writeln;
    write('k= ');
    readln(k);


    c:=0;
    max:=a[1];
    for I := 1 to n do
    begin
      if max<a[i] then
            begin
              max:=a[i];
              c:=i;
            end;


     end;

      write('max= ', max);

      for I:= 1 to n do
      begin
      if a[i]<>k then
       begin
              b:=a[c];
              a[c]:=k;
              k:=a[c];

       end
      else
       flag:=true;
      end;

      writeln;
      if flag then
       begin
        writeLn('K ege est` v massive');
        goto endd;
       end;

     for i := 1 to n do
    begin

      write(a[i],' ');
    end;
         writeln;

   endd:

    readln;
end.

[VD1988]

Подскажите пожалуйста! SysUtils - подразумевает использование меток в программе?

[Lemo]

Нет!
Что косаеться меток, определение их несет зарезервированное слово label
В данном случае(в начале программы):

  label endd;

[VD1988]

Как написать программу без метки? И вместо SysUtils можно написать Crt?

[Lemo]

ща посмотрю....

[VD1988]

Ввожу K=5 (например), программа пишет max=25, на следующей строчке K ege est v massive. А почему не выводится массив с заменяемой компонентой (числом 5 в данном примере)?

Помогите пожалуйста!!!!!

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const
  n=10;

  var
  a:array[1..n] of integer;
  i,k,max,c,b:integer;
  flag:Boolean;

begin

  randomize;
  for i := 1 to n do
    begin
      a[i]:=random(25)+1;
      write(a[i],'  ');            // ОТРЕДАКТИРОВАЛ ПРОБЕЛ
    end;

      writeln;
    write('k= ');
    readln(k);


    c:=0;
    max:=a[1];
    for I := 1 to n do
    begin
      if max<a[i] then
            begin
              max:=a[i];
              c:=i;
            end;


     end;

      write('max= ', max);
      writeln;

      for I:= 1 to n do
      begin
      if a[i]=k then
       begin

        writeLn('K ege est` v massive');
        break;

       end;
       end;



      for I:= 1 to n do
      begin
      if a[i]<>k then
       begin

              b:=a[c];
              a[c]:=k;
              k:=a[c];

       end ;
      end;



     for i := 1 to n do
    begin

      write(a[i],'  ');  // ОТРЕДАКТИРОВАЛ ПРОБЕЛ
    end;
         writeln;



    readln;
end.

Думаю вот так будет в самый раз!