Исправьте программу

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.

Question

Информатика

Крестя

19 июля, 11:41

Исправьте программу

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.

+5

Ответы (1)

Знаете ответ на вопрос?

Мироныч · Answer 1

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.