Заполнить массив из семи элементов случайными числами в интервале [ -10, 10] и найти количество нулевых элементов массива , и если их нет , то вывести на экран (нулевых элементов нет ) . решить .

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(7,-10,10); a.Println;
  var k:=a.Where(t->t=0).Count;
  if k>0 then Writeln('Кол-во нулевых элементов равно ',k)
  else Writeln('Нулевых элементов нет')
end.

Примеры
-7 9 -4 -3 0 -4 7
Кол-во нулевых элементов равно 1

-3 -8 -8 9 10 2 10
Нулевых элементов нет

1 файл в котором содержится текстовая информация 2 текстовый процессор имеет больше возможностей для форматирования текста, а так одно и тоже. 3 ввод текста, редактирование текста, форматирование текста, печать текста . 4 избегать ошибок и ставить пробелы после знаков препинания. 5 можно изменить размер, шрифт, атрибуты. 6 нажми на колесико и тащи мышку вверх или вниз, он будет летать.7 форматирование текста- приведение массива букв в читаемый вид. Текстовый редактор должен иметь инструмент для обработки текста.

Разделим монеты на 3 кучки по 9 монет. Положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). Теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. Наконец, остается из трех монет определить более тяжелую: кладем на чаши весов по 1 монете - фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части.

с алгоритмом сложнее)))