Составьте программу которая заполняет массив B[1 ... 16]случайными целыми числами в диапозоне от - 10 до 20 и определяет колличество чисел кратных 5 и их значения

Чтобы число было кратно пяти, оно должно будет пройти такую проверку: mod 5 = 0.

Это значит, что при делении числа на 5, оно не будет оставлять никаких остатков, а значит, оно нацело делится на пять.

В нужном нам массиве 16 чисел. Для того, чтобы правильно заполнить этот массив, нам нужно создать функцию, которая будет давать числа в промежутке от - 10 и до 20, включая концы:

rand (30) - 10;

Даже если число, сгенерированное функцией, будет равно 30, оно будет уменьшено на 10, и все равно попадет в нужный промежуток.

for i:integer≔1 to 16 do

if (b[i] mod 5 = 0) then

col_tvo : = col_tvo + 1;

write (b[i]:4);