Question

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

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

Answer 2

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

Answer 3

Program n1;
Const n=5;
Var a:array [1..n] of integer;
k,i:integer;
Begin
k:=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 УБРАТЬ?!

Answer 4

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

Answer 5

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

Answer 6

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