// PascalABC.NET
function ВерхнийТреугольник(Матрица: array[,] of integer):
sequence of integer;
begin
var ИндексMax := Матрица.RowCount - 1;
for var ИндексСтроки := 0 to ИндексMax - 1 do
for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do
yield Матрица[ИндексСтроки, ИндексСтолбца]
end;
begin
var n := ReadInteger('N =');
var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);
СлучайнаяМатрица.Println;
var ПоложительныеЭлементы :=
ВерхнийТреугольник(СлучайнаяМатрица)
.Where(Значение -> Значение > 0);
Println('Сумма положительных элементов равна',
ПоложительныеЭлементы.Sum);
Println('Число положительных элементов равно',
ПоложительныеЭлементы.Count)
end.
Есть две переменные а и б
Изначально а=0, б=2364
Пока б будет больше 0 он будет выполнять следующие действия:
если остаток от б/10 меньше нуля тогда к А прибавляется этот остаток.
Б делим на 10 и повторяем
Вывод А
Сама задача вычисляет сумму цифр в числе которые меньше 5.
Дано Б = 2364.
Задача смотрит остаток от 2364 mod 10 = 4
4 меньше пяти соответственно в А=4
далее 2364/10=236
теперь 236 mod 10 = 6
6 больше пяти поэтому ниче не делаем
236 div 10 = 23
теперь 23 mod 10 = 3
3 меньше пяти соответственно А=А+3 = 4+3 = 7
23 див 10 = 2
теперь 2 mod 10 = 2
2 меньше 5 соответственно А=А+3 = 7+2 = 9
2 див 10 = 0
Так как Б=0 программа выходит из цикла и выводит А, т.е. число 9