===== PascalABC.NET =====
procedure SumP(a: array[,] of integer; p: integer; var s: integer);
begin
s := a.Row(p-1).Sum
end;
begin
var m := MatrRandom(11, 4, 24, 32);
m.Println(3);
var s5, s10: integer;
SumP(m, 5, s5);
SumP(m, 10, s10);
Println('Учеников:', s5 + s10)
end.
Кол-во чисел в массиве которые меньше их порядкового номера
Var
A:byte;
Begin
WriteLn('Введи номер месяца');
Read(A);
Case A of
1:WriteLn('Январь');
2:WriteLn('Февраль');
3:WriteLn('Март');
4:WriteLn('Апрель');
5:WriteLn('Май');
6:WriteLn('Июнь');
7:WriteLn('Июль');
8:WriteLn('Август');
9:WriteLn('Сентябрь');
10:WriteLn('Октябрь');
11:WriteLn('Ноябрь');
12:WriteLn('Декабрь');
End
End.
Ответ 2
т.к у самого минимального числа индекс массива равен 2