Блог для маленьких школьников и их родителей
ШколаЛа

Решить в ПаскальАВС!

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Решить в ПаскальАВС!

Ответов к вопросу: 2
  • dimashytyk
    09.07.2024 | 08:29

    PascalABC.Net

    begin

     var (c, n) := ReadInteger2(‘Введите C and N’);

     var a := ArrRandom(n, -44, 35).Println;

     a.Where(z -> z > c).Average.Println;

    end.

  • kudaybergenova88
    09.07.2024 | 08:33

    const n = 20;
    var a: array [1.n] of integer;
    i, C, sum, count: integer;
    begin
    readln(C);
    for i := 1 to n do
    begin
    a[i] := Random(35 + 44 + 1) — 44;
    write(a[i]:4);
    end;
    writeln();

    sum := 0;
    count := 0;
    for i := 1 to n do
    if a[i] > C then
    begin
    sum := sum + a[i];
    count := count + 1;
    end;
    if count = 0 then
    count := 1;
    writeln(‘Среднее арифм.: ‘, (sum / count):4:2);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.