Question

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

Answer 1

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.