Решение в паскале с Var begin
Заполнить массив из 10 элементов случайными числами от 0 до 100 и посчитать сколько раз в нем встречается число 50.

program  mas50;  var s, i: integer;      a: array[1..10] of integer;begin  s:=0;  for i:=1 to 10 do a[i]:=random(100);  for i:=1 to 10 do write (a[i],' ');  for i:=1 to 10 do  if a[i]=50 then s:=s+1;  writeln ('Количество чисел равных 50 =', s);end.