В массиве а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.