Информатика,Паскаль,написать программу: Сформировать массив, состоящий из n целых элементов, лежащих в промежутке [10;10] Вычислить:
-минимальный по модулю элемент
- количество элементов кратных 5
- сумму элементов массива, расположенных между первым и последним положительными элементами.
Ответы
Ответ дал:
0
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.
Внимание! Если программа не работает, обновите версию!
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.
Приложения:
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад