Запишите полный текст программы.
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;
Ответы
Ответ дал:
0
Program Zam;
Var a : arrar [1..n] of integer ;
i,j,n,imax: integer;
Begin
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;
Readln;
End.
Var a : arrar [1..n] of integer ;
i,j,n,imax: integer;
Begin
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;
Readln;
End.
Ответ дал:
0
Если вы не умеете писать программы, то к чему вот это? Ошибок куча.. да и смысла в ней нет.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад