Предмет: Информатика,
автор: feldman2001
Помогите сделать задание B в паскале
Приложения:
![](https://files.topotvet.com/i/24b/24bc76d5df667d7cb2d07d65103eba63.jpg)
Ответы
Автор ответа:
0
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,5);
Writeln('Массив:'); a.Println;
var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
if k=0 then Writeln('Нет')
else Writeln('Есть: ',k)
end.
Примеры
n= 6
Массив:
1 3 4 0 5 4
Нет
n= 8
Массив:
1 1 0 4 5 0 0 5
Есть: 2
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,5);
Writeln('Массив:'); a.Println;
var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
if k=0 then Writeln('Нет')
else Writeln('Есть: ',k)
end.
Примеры
n= 6
Массив:
1 3 4 0 5 4
Нет
n= 8
Массив:
1 1 0 4 5 0 0 5
Есть: 2
feldman2001:
простите, но я некоторые функции не знаю
Похожие вопросы
Предмет: Математика,
автор: serginaulyana37
Предмет: Математика,
автор: savelijvlasov987
Предмет: Другие предметы,
автор: kirill180638
Предмет: Алгебра,
автор: HimkaGood