• Информатика,Паскаль,написать программу: Сформировать массив, состоящий из n целых элементов, лежащих в промежутке [10;10] Вычислить:
    -минимальный по модулю элемент
    - количество элементов кратных 5
    - сумму элементов массива, расположенных между первым и последним положительными элементами.

Ответы 1

  • PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;  Writeln('Минимальный по модулю элемент равен ',      a.Select(t->Abs(t)).Min);  Writeln('Количество элементов, кратных 5, равно ',      a.Where(t->t mod 5=0).Count);  Write('Сумма искомых элементов равна ');  var ai:=a.Indexesof(t->t>0);  a[ai.First+1:ai.Last].Sum.Println;end.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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