• Создать программу которая создает массив из восьми случайных чисел с промежутком (-20,11) и вычислить сумму чисел<7

Ответы 2

  • PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := ArrRandom(8, -20, 11);

     a.Println;

     Println('Сумма значений, меньших 7, равна ',

         a.Where(t -> t < 7).Sum)

    end.

    Пример

    -13 -19 2 7 11 9 -7 10

    Сумма значений, меньших 7, равна  -37

    • Автор:

      marín29
    • 5 лет назад
    • 0
  • var i,s:integer;

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

    begin

    randomize; s:=0;

    for i:=1 to 8 do

    begin

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

    if a[i]<7 then

    s:=s+a[i];

    end;

    writeln(s);

    end.

    • Автор:

      jayson123
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years