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