Var a:array[1..1000] of integer;
i,n,max,m:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(a[i]);
max:=a[1];m:=1;
for i:=2 to n do if a[i]>max then
begin max:=a[i]; m:=i; end;
a[m]:=a[1];a[1]:=max;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.
</span>
516,22₁₀=5*10²+1*10¹+6*10⁰+2*10⁻¹+2*10⁻²
² ¹ ⁰⁻¹⁻²
17,03₁₀=1*10¹+7*10⁰+0*10⁻¹+3*10⁻²
¹ ⁰⁻¹⁻²
Оператор условия.
Если (действие, утверждение), то.... иначе....
Если нужно от 15 до 2 :
Var i:integer
Begin
i:=2
while i<=15 do begin
write(i**3,' ')
end;
end.
P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.