Задать вопрос
24 августа, 17:54

Объявить одномерный массив на 12 элементов целого типа, найти среднее арифметическое данных элементов, заменить пятый элемент массива полученным результатом

+2
Ответы (1)
  1. 24 августа, 20:52
    0
    Uses crt;

    type

    massiv = array [1 ... 12] of integer;

    var

    i, n, summa : integer;

    srednee : real;

    A : massiv;

    begin

    clrscr;

    write ('Введите кол-во элементов : ') ; readln (n) ;

    summa : = 0;

    for i:=1 to n do

    begin

    write ('Введите ', i, ' элемент : ') ; readln (A[i]) ;

    summa : = summa + A[i];

    end;

    srednee : = summa / n;

    A[5] = srednee;

    readln;

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