Question

исправьте программу
 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. 

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. 

Answer 2

ошибку выводит ,что то тут не правильно

Answer 3

uses Crt;
var n, h, i, k, j, P:integer;
A: array[1..30] of integer;
Begin
for i:=1 to 5 do
begin
write( ' a[ ',i,' ]:' );
read(a[1],a[2],a[3],a[4],a[5]);
writeln(a);
end;
readln;
Begin
for k:=1 to 5-1 do
for j:=k+1 to 5 do
if A[k] > A[j] then
begin
P:= A[k];

Answer 4

A[k]:= A[j];
A[j]:= P;
end;
writeln('Масив, отсортированный по возрастанию:');
for k:=1 to 5 do writeln(' A[ ',k,' ]: ',A[k],' ');
writeln;
end;
end.