Задать вопрос
1 августа, 10:05

Составить процедуру вычисления среднего арифметического элементов одномерного массива A[T]. Массив заполнить случайным образом.

+3
Ответы (1)
  1. 1 августа, 10:34
    0
    PascalABC

    const

    n = 10;

    type

    mas = array [1 ... n] of integer;

    procedure SrM (a : mas; var b : real) ;

    var i : integer;

    S : integer;

    begin

    s : = 0;

    for i : = 1 to n do

    S : = S + a[i];

    b : = S / n;

    end;

    var

    a : mas;

    i : integer;

    Sr : real;

    begin

    for i : = 1 to n do

    a[i] : = - 10 + random (20) ;

    SrM (a, Sr) ;

    writeln (Sr:3:2) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить процедуру вычисления среднего арифметического элементов одномерного массива A[T]. Массив заполнить случайным образом. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы