Паскаль: определить сколько раз встречается число k при генерации чисел с помощью цикла...

Question

Паскаль: определить сколько раз встречается число k при генерации чисел с помощью цикла For (элементы сгенерировать randomom) СРОЧНААААААА!!!!!!!!

Comments

В каком диапазоне должны генерироваться случайные числа? (Минимальное, максимальное)

Answer 1

program raf105;

var n,k,i,raz:integer;

begin

write('Сколько чисел нужно сгенерировать?: ');

readln(n);

write('Число, которое нужно посчитать (k): ');

readln(k);

for i:=1 to n do

if (random(0,100))=k

 then raz:= raz+1;

writeln('Из ',n,' сгенерированных чисел число ',k,' встретилось ',raz,' раз');

end.

Язык программирования PascalABC

Comments

program test;beginwriteln(random(0,100));end.

---

program test;beginrandomize;writeln(random(0,100));end.

---

Попробуйте так

---

Это в самом начале написать?

---

После begin

---

Опять пишет «функция RANDOM с параметрами указанных типов не найдена»

---

Program n1;Const n=5;Var a:array [1..n] of integer;k,i:integer;Begink:=0;For i:=1 to n do readln (a[i]);For i:=1 to n do if (a[i]=7) then k:=k+1; Writeln(‘количество: ‘,k);End. А В ЭТУ ПРОГРАММУ МОЖНО КАК НИБУДЬ ИЗМЕНИТЬ? ПОД РАНДОМ И CONST УБРАТЬ?!

---

Комп пишет ошибку там где стоит *:(random(,100)*)

---

Вы не написали 0 перед запятой

---

На компе написала(это я здесь опечатала)