2 Ойлануға берілген сұрақтар
1. inputo функциясындағы әдістердің қандай маңызы бар?
2. printо функциясында end=\n' әдісі қандай мақсатта қолданылады?
3. Программалау кезінде inputo функциясын қолдану алгоритмнің қай
қасиетін орындауға мүмкіндік береді?
4. input) және рrіntо функцияларының қандай айырмашылығы бар?
5. 548 + 895 + 1000 + 5012" жолынан сандарды ажыратып, оларды
бір-біріне қосу үшін inputo функциясы қалай жазылады?
95

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
  Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');

end.

По всей видимости, нужно объяснить что выведет данная программа...
Давай анализировать и разбираться.
Мы создаем целочисленную переменную n, которую потом в цикле будем наращивать на "1". Такие переменные называют "Счетчик"
Далее, создаем переменную s, равную 512, и пока она больше или равна нулю, мы отнимаем от нее "20". 
Посчитаем, сколько раз нужно отнять 20 от 512, чтобы получилось число меньше нуля:
512 / 20 = 25 и +"1" = 26, т.к. условие содержит "=".
26 раз мы увеличим переменную n, это и будет наш ответ