В паскале: Найти количество пар элементов в заданном массиве из 10 целых чисел для...

Question

В паскале: Найти количество пар элементов в заданном массиве из 10 целых чисел для которых выполнено условие, что a [i] = a [i+2]

Comments

слишком мало данных

---

достаточно

---

эммм ну как бы А какой ввод данных? С клавиатуры? из файла? Рандомом?

---

с клавиатуры

Answer 1

var array1: array [1..10] of integer;

   a, i: integer;

begin

   a:= 0;

   for i:= 1 to 8 do begin

       if array[i] = a[i + 2] then a = a + 1;

   end;

   writeln(a);

end.