Запишите полный текст программы
for i:= 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

1

Ответы и объяснения

2014-03-18T14:34:58+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Const
    n = 20;

var
    i, imax, j, x: integer;
    a: array[1..n]of integer;

begin
    for i := 1 to n do
        a[i] := random(100);
    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;
   
    for i := 1 to n do
      write(a[i],' ');
     
    writeln();
    writeln(imax);
   
end.