4) С:\учёба\математика\2013\Расписание
Неправильно обозначена основная библиотека.
Робот не знает таких команд.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1
a.Println;
if a.Where(x->x>=0).Distinct.Count>1 then
Writeln('Есть отличающиеся элементы')
else Writeln('Все элементы равны')
end.
<u>Примеры</u>
Длина последовательности: 4
1 1 1 -1
Все элементы равны
Длина последовательности: 5
0 1 1 0 -1
Есть отличающиеся элементы
Прямоугольник с кружком это НЕ ¬
Прямоугольник с единицей это ИЛИ ∨
На входе две переменные A B
Запишем А:
¬A
Запишем B:
¬B
Далее они объединяются в ИЛИ
F = ¬A ∨ ¬B
В блок-схемах используются геометрические фигуры: овал (начало и конец), параллелограмм (ввод/вывод), ромб (принятие решения) и прямоугольник (выполневие действия). Стрелки, связывающие эти фигуры, задают порядок выполневия соответствующих шагов.