помогите с информатикой, что неправильно?
Ответы
В этом коде есть несколько ошибок. Первая ошибка состоит в том, что переменная imax не объявлена. Чтобы эта проблема была решена, необходимо добавить объявление переменной imax в начале кода.
Вторая ошибка состоит в том, что в цикле for i:=1 to 100 do begin переменная count не объявлена и используется неправильно. Вместо этого необходимо использовать массив a, который уже объявлен в коде.
Также в этом коде используется переменная j, которая также не объявлена. Чтобы эта проблема была решена, необходимо добавить объявление переменной j в начале кода.
Исправленный код должен выглядеть примерно так:
var a: array[1..10] of integer;
i, j, imax: integer;
begin
for i:= 1 to 10 do read(a[i]);
for i:= 1 to 10-1 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:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
for i:=1 to 100 do begin
writeln(i, a[i]);
end;
end.