// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(15,-28,25); a.Println; Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q)); Writeln('Положительных элементов: ',a.Where(t->t>0).Count); var imin:=a.IndexMin; Writeln('Номер минимального элемента- ',imin+1, ', его значение равно ',a[imin]) end.
Пример 4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21 П = -447760579166208000 Положительных элементов: 8 Номер минимального элемента- 7, его значение равно -28
program summa; var a:= 0; var b:= 0; begin writeln('Введите число'); readln(a); if a>0 then repeat {повторяй} a:= a+b; writeln('Введите еще число'); readln(b); until (b<0); {до тех пор, пока условие не будет истинным} writeln('Было обнаружено отрицательное число'); if a>0 then writeln('Полученная сумма: ',a) else writeln('Отрицательное число было первым'); readln; end. Программа на выходе сообщает: Введите число 3 Введите еще число 45 Введите еще число 9 Введите еще число -8 Было обнаружено отрицательное число Полученная сумма: 57
