Написать программу по информатике! дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. верно ли, что все элементы последовательности равны между собой?

197

395

Посмотреть ответы 2

Ответы на вопрос:

vyglotov

Информатика

4,4(33 оценок)

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('длина последовательности: '); var a: =(seqrandom(n-1,0,1)+(-; // последовательность 0 и 1 a.println; if a.where(x-> x> =0).distinct.count> 1 then writeln('есть отличающиеся элементы') else writeln('все элементы равны') end. примеры длина последовательности: 4 1 1 1 -1 все элементы равны длина последовательности: 5 0 1 1 0 -1 есть отличающиеся элементы

ViKtOrIaSmIrNoVa2007

Информатика

4,5(93 оценок)

Судя по всему вы понимаете, поэтому подсказки будет достаточно. немного не так. вы не сдвигаете элемента массива. вам нужен отдельные циклы для увеличения i и j. тогда программа будет сама переходить к нужному элементу массива на каждой итерации.