Pascal Заполнить массив из 20 целых чисел. Подсчитать количество одинаковых "соседей" в массиве. НУЖНО РЕШЕНИЕ ПО ПРОГРАММЕ 9 КЛАССА(Т.Е. БЕЗ ТОГО, ЧТО ПРОХОДЯТ В 10-11 КЛАССАХ)
Нужно подсчитать количество пар или самих чисел?
И заполнять как: самому или рандомом?
Да
Ага, то есть, такую пару троек считать за 1?
Хотя, можно и самому заполнять. Как вам удобнее
Посчитать кол-во одинаковых соседей. Например, у числа 2 соседи 1и 3, у числа 4 соседи 3 и 5. Значит, у этих чисел одинаковые соседи это числа 3, нужно посчитать их кол-во
Заполнять рандомом.
Var a:array[1..1000] of integer; k, I, n: integer; begin k:=0; readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n-1 do if a[i]=a[i+1] then k:=k+1; writeln(k); end.
Ге работает
У меня комп сломался. Я проверяю в приложении на телефоне
что пишет?
у меня в var стоит I вместо маленькой буквы ii ( почему то исправляется автоматом) попробуй исправить
Ничего не работает
Код плохо выглядит здесь, поэтому кину в файле.
Так ты скрин отправь, где конкретно ошибка
Всё равно не работает
https://ibb.co/d1TBkR - Что именно?