Составить программу : даны натуральное число m и целые числа d1, d2, dm. выяснить, верно ли, что количество положительных чисел di кратно трем.

Program Proverka;
var a, b, c, k:integer;
begin
k:=0;
read(a);
for c:= 1 to a do
begin
read(b);
if(b > 0) then 
begin
k:=k+1;
end;
end;
if(k mod 3 = 0) then
begin
write('YES');
end
else
begin
write('NO');
end;
end.

Мощная система гибких сеток для мобильных устройств, для удобной верстки и расположения элементов любых видов и размеров. Используется система «12 колонок», 5-ти адаптивных ярусов, препроцессоров Sass и десятков предустановленных классов.

<div class="container">

 <div class="row">

   <div class="col-sm">

     Одна из трёх колонок

   </div>

   <div class="col-sm">

     Одна из трёх колонок

   </div>

   <div class="col-sm">

     Одна из трёх колонок

   </div>

 </div>

</div>

В данном примере с предустановленных классов сеток были созданы 3 колонки равной ширины для маленьких, средних и больших девайсов. Эти колонки выровнены с родительского класса .container.

Можно вычислить используя формулы в ячейках. То есть в вашем случае можно использовать =СУММ(диапазон), где диапазон - срез таблицы, ячейки которого будет считаться формулой СУММ. Его можно указать форматом XN:Yn, где X, Y - буквенное обозначение столбцов, а N, n - строки. Можно это интерпретировать как ячейка с левого верхнего  края (XN) до нижнего правого (Yn).

Пример решения вашей задачи:

Впишите в любую стороннюю ячейку значение =СУММ(A1:A15) для вычисления суммы первых пятнадцати строк в столбце A.