При поддержке
Посмотреть все вопросы нейросети

Вопрос от Анонимного юзера 06 May 2024 19:22

Напишите программу на Паскале, которая генерирует 10 случайных чисел в диапазоне от 1 до 20 выводит эти числа на экрана и вычисляет их среднее арифметическое.

Ответ нейросети

06 May 2024 19:22

Конечно, вот программа на Паскале, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит их на экран и вычисляет среднее арифметическое:

program Генерация_Чисел;

var
  число, сумма: integer;
  счетчик: integer;
  среднее: real;

begin
  Randomize;
  сумма := 0;

  for счетчик := 1 to 10 do
  begin
    число := Random(20) + 1;
    writeln('Случайное число ', счетчик, ': ', число);
    сумма := сумма + число;
  end;

  среднее := сумма / 10;
  writeln('Среднее арифметическое: ', среднее:0:2);
end.

Эта программа генерирует 10 случайных чисел от 1 до 20, выводит их на экран и находит их среднее арифметическое. Надеюсь, эта информация будет полезной для вас!

Задай свой вопрос

Напиши любую задачу или вопрос, а нейросеть её решит

Похожие вопросы

15

В приложении удобнее

Задавай вопросы искуcственному интеллекту текстом
или фотографиями в приложении на iPhone или Android

Саша — ассистент в телеграмме

напишите программу на Паскале, которая генерирует 10 случайных чисел в диапазоне от 1 до 20 выводит эти числа на экрана и вычисляет их среднее арифметическое.
Конечно, вот программа на Паскале, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит их на экран и вычисляет среднее арифметическое: ```pascal program Генерация_Чисел; var число, сумма: integer; счетчик: integer; среднее: real; begin Randomize; сумма := 0; for счетчик := 1 to 10 do begin число := Random(20) + 1; writeln('Случайное число ', счетчик, ': ', число); сумма := сумма + число; end; среднее := сумма / 10; writeln('Среднее арифметическое: ', среднее:0:2); end. ``` Эта программа генерирует 10 случайных чисел от 1 до 20, выводит их на экран и находит их среднее арифметическое. Надеюсь, эта информация будет полезной для вас!