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