• Запишите полный текст программы.
    for i:=1 to n-1 do
    begin
    imax:=i;
    for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
    x:=a[i];
    a[i]:=a[imax];
    a [imax]:=x
    end;

Ответы 2

  • Если вы не умеете писать программы, то к чему вот это? Ошибок куча.. да и смысла в ней нет.
  • Program Zam;Var a : arrar [1..n] of integer ;i,j,n,imax: integer;Beginfor i:=1 to n-1 do beginimax:=i;for j:=i+1 to n do if a[j]>a[imax] then imax:=j; x:=a[i]; a[i]:=a[imax]; a [imax]:=xend;Readln;End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years