Aleksandr72
?>

3 Дан массив чисел. Определить, сколько в нем пар одинаковых соседних элементов.с++​

Информатика

Ответы

Sergei1805
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
andreich97
// 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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

3 Дан массив чисел. Определить, сколько в нем пар одинаковых соседних элементов.с++​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

appmicom
ANDREY261965
Наталья286
Gatina
vadimkayunusov
shkola8gbr
kartyshkinaaa
elena-novikova-1992
mos197653
Gesper63
shumilovs7252
vasilevich-F
Сурат1199
stasletter
Радецкая264