В массиве а1, а2, ..., а50 найти количество нулей.

Решение. Введем последующие обозначения: а - массив из 50 частей (формировать его будем случайными целыми числами из хоть какого промежутка, который включает число ноль; возьмем, например, просвет [-3;3]); i - порядковый номер частей массива; a[i] - значения частей массива; k - количество нулевых частей массива. Будем использовать оператор цикла с параметром for. Тогда программа на языке программирования Pascal ABC может смотреться так:

program zadacha;

uses crt;

var i, n: integer;

a: array[1..50] of integer;

begin

n:=0;

for i:=1 to 50 do  begin

a[i]:=random(3+3+1)-3;

write(a[i], );

end;

writeln;

for i:=1 to 50 do

if a[i]=0 then

n:=n+1;

write(n=,n);

end.