Вопрос задан 28.02.2019 в 07:57. Предмет Информатика. Спрашивает Егорушков Илья.

Напечатать на экране N различных целых чисел из интервала [1..99], используя функцию Random.

Помогите срочно плиз!
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Soima Viktoria.
Const N = 99;
var  i, j, t: integer; 
 flag: boolean; 
 mas: array[1..N]of integer;
begin 
randomize; 
 i := 0; 
while i < N do  
 begin   
 t := Random(1, 99); 
   flag := true; 
  for j := 1 to i do 
    if t = mas[j] then
 begin   
    flag := false;
Break     
end;   
 if flag then begin 
    i := i + 1;
mas[i] := t   
 end
  end; 
 for i := 1 to N do
 write(mas[i], ' ')
end.
0 0
Отвечает Беркут Иван.
Ну держи с функцией Random.

ЗАДАЧА Random(): ЦЕЛ;
УКАЗ
  ВОЗВРАТ УЗК(ВШИРЦЕЛ(Матем.случ() * 98)) + 1
КОН Random;

ОТ сч := 1 ДО N ВЫП
  Вывод.ЧЦел("%d ", Random(), 0, 0, 0)
КОН
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно, я могу помочь вам написать простой код на языке программирования для генерации N различных целых чисел из интервала [1..99] с использованием функции Random. Приведу пример на языке Python:

```python import random

def generate_random_numbers(n): if n > 99: print("Ошибка: N не может быть больше 99, так как интервал [1..99]") return # Генерируем N различных целых чисел random_numbers = random.sample(range(1, 100), n) # Выводим результат на экран print(f"{n} различных целых чисел из интервала [1..99]: {random_numbers}")

# Пример вызова функции для генерации 10 различных чисел generate_random_numbers(10) ```

Этот код использует функцию `random.sample`, которая генерирует указанное количество уникальных элементов из заданного диапазона. Пожалуйста, уточните, если вам нужен код на другом языке программирования, и я постараюсь помочь!

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос