Строка операционного меню
Панель инструментов
ну и возможно Строка состояния
Срины нужно?
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),-5,5);
a.Println;
var b:=a.Select((x,i)->x=0?i+1:0).Where(i->i>0);
if b.Count>0 then begin
b.Println(','); Writeln('Кол-во: ',b.Count)
end
else Writeln('Нет нулевых элементов')
end.
<u><em>Тестовое решение:</em></u>
n= 20
-4 2 5 -2 0 5 4 4 -3 -2 -5 2 1 0 -2 0 4 1 -2 3
5,14,16
Кол-во: 3
Я думаю что Белка, вторая не согласная и третья не гласная
Это ряд натуральный чисел растущих от 1 до данного нам количества в сомножителе а потом наоборот тоже самое но убывающих.