Задать вопрос Регистрация
Помочь другим

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

Ответы 2

  • const

      n = 10;

    var

      a, summ, i:integer;

    begin

      randomize;

      summ := 0;

      for i := 1 to n do

      begin

        a := random(20) + 1;

        summ := summ + a;

        write(a, ' ');

      end;

      writeln;

      writeln('Среднее арифметическое этих чисел ',summ / n);

    end.

     

    • Автор:

      halfmast
    • 6 лет назад
    • 0

  • program random_1;varx,sum,i:integer;beginrandomize;writeln('Ряд случайных чисел: ');for i:=1 to 10 do begin                        x:=random(20)+1;                        sum:=sum+x;                        if i<>10 then write(x,', ')                                    else writeln(x,'.');                        end;writeln('Среднее арифметическое этих чисел ',sum/10);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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