Question

Составить программу на Паскале. В двумерном массиве хранится информация о количестве учеников в каждом классе каждой параллели школы с первой по одиннадцатую (в первой строке — информация о классах первой параллели, во второй — второй параллели и т. д.). В каждой параллели школы имеются четы-ре класса. Определить общее число учеников в параллели 5-х и 10-х классов. Используйте процедуру.

Answer 1

===== 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.