24 ! написать программу, используя массив: в школе 15 классов. количество учеников в классе выбирается случайным образом от 15 до 30. количество учеников каждого класса должно выводится на экран. сосчитать количество учеников в школе.

program raf105;

var  

 a:array[1..15] of integer;

 i,sum:integer;

begin

write('Количество учеников в классах: ');

for i:=1 to 15 do

begin

 a[i]:= random(15,30);

 write(a[i],' ');

 sum+= a[i];

end;

writeln;

writeln('Количество учеников в школе: ',sum);

end.

Язык PascalABC