Заполните случайными числами в диапазоне от 1 до 50 массив B [1:20]. Какое количество раз встречается число 4 в данном массиве? Вывести сообщение на экран: Число 4 встречается в массиве раз. Если такого числа нет, то вывести на экран сообщение об этом

VolandDrein VolandDrein    3   19.04.2020 14:13    0

Ответы
Вазген228 Вазген228  13.10.2020 11:50

// 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика