Question

Заполните массив  из 10 целых  чисел через  генератор  случайных  чисел  в  диапазоне от 3 до 10 и найти кол-во элементов массива  значение которых равно 4 (в паскаль)

FREE PASCAL

Answer 1

var i,k : integer;
 a: array[1..10] of integer;
Begin
  for i := 1 to 10 do begin
    a[i] := random(7) + 3;
    if a[i] = 4 then k:= k + 1;
  end;
  writeln(k);
End.