Задать вопрос
29 января, 19:17

Найти среднее арифметическое элементов отличных от минимального

Pascal ABC

+2
Ответы (1)
  1. 29 января, 20:48
    0
    Const n=15;

    var i, k, mn, indm, sm: integer;

    a: array[1 ... n] of integer;

    sar: real;

    begin

    randomize;

    writeln ('исходный массив:');

    mn:=n; sm:=0;

    k:=1;

    for i:=1 to n do

    begin

    a[i]:=random (-n, n);

    sm:=sm+a[i];

    write (a[i],' ');

    if a[i]=mn then k:=k+1;

    if a[i]
    begin

    mn:=a[i];

    indm:=i;

    k:=1;

    end;

    end;

    writeln;

    writeln ('минимальный элемент: ', mn,' индекс: ', indm);

    sm:=sm-a[indm]*k;

    writeln ('сумма элементов без минимального: ', sm);

    sar:=sm / (n-k);

    writeln ('среднее арифметическое: ', sar:7:3);

    end.

    исходный массив:

    -1 6 - 12 - 14 14 - 14 10 - 9 - 2 - 6 9 - 1 - 13 13 - 2

    минимальный элемент: - 14 индекс: 4

    сумма элементов без минимального: 6

    среднее арифметическое: 0.462
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Найти среднее арифметическое элементов отличных от минимального Pascal ABC ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы