Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10...

Question

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

FREE PASCAL

Comments

Какой именно паскаль?

---

FREE PASCAL

---

Простите, не могу помочь =(

---

Если как-то может пригодиться, на паскале абц:var a:array[1..10] of integer;i,k:integer;beginrandomize;for i:=1 to 10 do begin a[i]:=random(8)+3; write(a[i],' '); if a[i]=4 then k:=k+1; end;writeln;write(k);end.

---

только первое число тут большим выходит всегда, а так прога отличная)))

---

я когда-то вот так писал(тут для любого числа, но не выводит само содержание массива, хотя это вообще легко написать, кстати тоже АБС

---

uses crt;var i,kol:integer;x:real;N:array [1..100] of real;z:char; label 1;begin1:for i:=1 to 100 doN[i]:=random(100);write('Введите искомое число: ');read(x);for i:=1 to 100 doif N[i]=x then Inc(kol);writeln('Число ',x,' встречается ',kol,' раз.');writeln('Ещё??? y-да, n-нет.');read(z);if (z='y') or (z='Y') then goto 1elseread;end.

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.