30 октября, 16:03

Найти средне арифметическое элементов массива, превосходящих некоторое число С.

0
Ответы (1)
  1. 30 октября, 16:10
    0
    var c, i, z:integer;

    mass, a:array[1 ... 20] of integer;

    q:real;

    begin

    writeln ('Элементы массива:');

    for i:=1 to 20 do

    begin

    mass[i]:=random (11);

    write (mass[i],' ');

    end;

    writeln;

    write ('c=');

    readln (c);

    write ('Числа превосходящие с: ');

    for i:=1 to 20 do

    if (mass[i]>c) then

    begin

    inc (z);

    a[z]:=mass[i];

    write (mass[i],' ');

    end;

    for i:=1 to z do

    begin

    q:=q+a[i];

    end;

    writeln;

    write ('Среднее арифметическое этих чисел=', q/z);

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