danilpov
14.07.2021 19:34

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
dashaponomarev4
08.10.2020 20:52
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.

Информатика,паскаль,написать программу: сформировать массив, состоящий из n целых элементов, лежащих
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота