Задание:
Очень прошу! Помогите! Составьте программу которая заполняет массив a[ 1… 10] случайными числами в диапазоне от 0 до 2 и выводит на экран количествоэлементов равных 1
Решение:
Varmass: array[1… 10] of integer; I,n: integer; beginn: =0; randomize; for I: =1 to 10 do beginmass[I]: =round (random (2); if mass[I]=1 then n: =n+1; end; write (n); end.
Знаете другой ответ?