В паскале: Найти количество пар частей в данном массиве из 10

В паскале:

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

Задать свой вопрос
Marija
очень малюсенько данных
Инна Азаронова
достаточно
Спицева Эмилия
эммм ну как бы А какой ввод данных? С клавиатуры? из файла? Рандомом?
Дарина Закшевер
с клавиатуры
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт