Составьте программу которая заполняет массив a[1..10] случайными целыми числами в...

Question

Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводить на экран количество элементов, равных 1 (заранее спасибо)

Answer 1

const n=10;

var a:array [1..n] of integer;

i,k:integer;

begin

for i:=1 to n do

begin

a[i]:=random(3);

if a[i] = 1 then k:=k+1

end;

writeln('Массив: ',a);

writeln('Количество элементов, равных 1: ',k)

end.

Answer 2

javascript:var a = []; for (let сч = 0; сч < 10; сч++) a.push(Math.floor(Math.random() * 3)); alert(a.reduce(function (пр, тек) { return пр + (тек == 1 ? 1 : 0); }, 0));