Задать вопрос
7 февраля, 08:49

Задано N целых чисел. Вам необходимо найти среднее арифметическое этих чисел. Гарантируется, что среднее арифметическое всегда целое.

+1
Ответы (1)
  1. 7 февраля, 12:29
    0
    Var count, a, b, N, i: integer;

    Begin

    writeln ('N = ') ;

    readln (N) ;

    for i : = 1 to N do

    begin

    write (i, ': ') ;

    readln (a) ;

    b : = b + a;

    count : = count + 1;

    end;

    writeln ('> ', b/a) ;

    end.

    Вот, прошу =)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задано N целых чисел. Вам необходимо найти среднее арифметическое этих чисел. Гарантируется, что среднее арифметическое всегда целое. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы