profile
Опубликовано 4 года назад по предмету Информатика от den1258

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

FREE PASCAL

  1. Ответ
    Ответ дан archery
    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.