Информатика, опубликовано 2018-08-22 19:14:06 by Гость
Исправьте программу 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]
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.