6 октября, 18:12

Задача в Паскале. Дано n чисел, введённых с клавиатуры. Найти их среднее арифметическое

+2
Ответы (2)
  1. 6 октября, 19:38
    0
    program z_1;

    var a, s: real;

    i, n, k: integer;

    begin

    writeln ('Введите кол-во чисел последовательности: ');

    readln (n);

    k : = 0;

    s:=0;

    for i : = 1 to n do

    begin

    writeln ('Введите ', i, '-е число: ');

    readln (a);

    s : = s + a;

    k : = k + 1;

    end;

    writeln ('Среднее арифметическое чисел: ', s / k);

    end.
  2. 6 октября, 19:59
    0
    Var i:array[1 ... 1000] of integer;

    sum, n, k : integer;

    Begin

    Readln (n);

    for k:=1 to n do begin

    Read (i[k]);

    sum+=i[k];

    end;

    writeln (sum/n);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Задача в Паскале. Дано n чисел, введённых с клавиатуры. Найти их среднее арифметическое ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы