Исправьте программу program n_8 ; var n, i , j, x, imax : integer; begin for i:=1 to do 10 do read (a[i]); for i:=1 to do 10 do write (a[i],''); for i:=1 to 9 do begin imax:=i: for j:=i+1 to 10 do if a[ j] больше a[imax] the...
Исправьте программу
program n_8 ;
var n, i , j, x, imax : integer;
begin
for i:=1 to do 10 do read (a[i]);
for i:=1 to do 10 do write (a[i],'');
for i:=1 to 9 do begin imax:=i:
for j:=i+1 to 10 do if a[ j]>a[imax] then imax:=j;
x:=a[i];
a[i];=a[imax];
a[imax[:=x
end ;
for i:=1 to do 10 do write (a[i]<''];
end.
Гость
Ответ(ы) на вопрос:
Гостьprogram n8 ;
var
n, i , j, x, imax : integer;
begin
for i:=1 to do 10 do read (a[i]);
for i:=1 to do 10 do write (a[i]');
for i:=1 to 9 do begin imax:=i:
for j:=i+1 to 10 do if a[ j]>a[imax] then imax:=j;
x:=a[i];
a[i];=a[imax];
a[imax]:=x ;
end ;
for i:=1 to do 10 do write (a[i],"<'');
end.
Не нашли ответ?
Похожие вопросы