Заполните случайными числами в диапазоне от 1 до 50 массив B [1:20]. Какое количество раз встречается число 4 в данном массиве? Вывести сообщение на экран: Число 4 встречается в массиве раз. Если такого числа нет, то вывести на экран сообщение об этом
// PascalABC.Net
var a: array [1..20] of integer;
i, count: integer;
begin
for i := 1 to 20 do
begin
a[i] := random(1, 50);
write(a[i]:4);
end;
writeln();
count := 0;
for i := 1 to 20 do
begin
if a[i] = 4 then
inc(count);
end;
writeln('Число 4 встречается в массиве ', count, ' раз.');
end.