Const n = 10; var a:array[1..n]of integer; i,k,temp:integer;
begin for i:=1 to n do a[i]:=random(21) - 10; repeat writeln('Введите k (k<>1 и k<>10)'); readln(k); if (k=1) or (k=n) then writeln('Ошибка, повторите ввод'); until (k<>1) and (k<>n); for i:=1 to n do write(a[i]:4);writeln; temp:=a[k-1];a[k-1]:=a[k+1];a[k+1]:=temp; for i:=1 to n do write(a[i]:4); end.
Тестовое решение: Введите k (k<>1 и k<>10) 1 Ошибка, повторите ввод Введите k (k<>1 и k<>10) 5 7 -5 -6 6 -7 3 9 8 7 -6 7 -5 -6 3 -7 6 9 8 7 -6
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 function f(x:real):=3+x*(4+x*(5+x*6));
begin var a:=-1.0; var b:=0.0; var eps:=1e-6; var fa:=f(a); var x,fx:real; if abs(fa)<=eps then Writeln('x=',a,',y=',fa) else begin var fb:=f(b); if abs(fb)<=eps then Writeln('x=',b,',y=',fb) else if fa*fb>0 then Writeln('На указанном интервале корней нет') else repeat x:=(a + b)/2; fx:=f(x); if abs(fx)<=eps then Writeln('x=', x, ', y=', fx) else if fa*fx>0 then a:=x else b:=x; until abs(fx)<=eps end end.
Результат выполнения программы: x=-0.790308952331543, y=-6.74849237825015E-07
var
a:array[1..n]of integer;
i,k,temp:integer;
begin
for i:=1 to n do a[i]:=random(21) - 10;
repeat
writeln('Введите k (k<>1 и k<>10)');
readln(k);
if (k=1) or (k=n) then writeln('Ошибка, повторите ввод');
until (k<>1) and (k<>n);
for i:=1 to n do write(a[i]:4);writeln;
temp:=a[k-1];a[k-1]:=a[k+1];a[k+1]:=temp;
for i:=1 to n do write(a[i]:4);
end.
Тестовое решение:
Введите k (k<>1 и k<>10)
1
Ошибка, повторите ввод
Введите k (k<>1 и k<>10)
5
7 -5 -6 6 -7 3 9 8 7 -6
7 -5 -6 3 -7 6 9 8 7 -6