• Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет среднее арифметическое элементов этого массива.


    Входные данные

    Входная строка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000 .


    Выходные данные

    В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – среднее арифметическое элементов этого массива, сохранив три знака в дробной части.

Ответы 12

  • SyntaxError на строке 2: invalid syntax (вот что пишет)
    • Автор:

      ariel30
    • 6 лет назад
    • 0
  • Я на паскале решил
  • Странно... по условию 0 < N ≤ 10000, а Вы массив на 100 объявляете...
  • исправил
    • Автор:

      tankag1j
    • 6 лет назад
    • 0
  • Или в Free Pascal 3.0.2!!
  • Возможно. Но об этом, когда мозг включают, сообщают в вопросе, а не в комментарии к полученному ответу.
  • Или Вы считаете, что здесь собрались люди, знающие Ваши личные предпочтения?
    • Автор:

      bitsufu9
    • 6 лет назад
    • 0
  • И еще: нормальные люди, получив ответ на свой вопрос, даже если с вопросом накосячили, не считают для себя зазорным поблагодарить за ответ людей, бесплатно потративших свое время и силы.
    • Автор:

      cocoacgmd
    • 6 лет назад
    • 0
  • не то
  • точно
    • Автор:

      eliseo
    • 6 лет назад
    • 0
  • var c:array[1..10000] of integer;n, k, S, a, b: integer; q: real;beginread(a, b, n); k:=0; S:=S;for var i:=1 to n do begin   c[i]:=random(a,b);  k:=k+1;   S:=S+c[i];   write(c[i], ' ');end;q:=S/k;writeln(q:17:3);end.
  • // PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var (a,b,n):=ReadInteger3;  var p:=ArrRandom(n,a,b); p.Println;  Writeln(p.Average:0:3)end.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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