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