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

Ответы 6

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

      amigakzby
    • 5 лет назад
    • 0
  • 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 УБРАТЬ?!
    • Автор:

      lance
    • 5 лет назад
    • 0
  • Комп пишет ошибку там где стоит *:(random(,100)*)
  • Вы не написали 0 перед запятой
  • На компе написала(это я здесь опечатала)
    • Автор:

      abel29
    • 5 лет назад
    • 0
  • 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

    • Автор:

      dominik8
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years