На языке Pascal:
var
arr:arrray[1..15] of integer;
i,sum:integer;
begin
for i:=1 to 15 do
begin
read(arr[i]); //Считываем количество учеников в каждом классе
write(arr[i],' ');
sum:=sum + arr[i]; //Количество учеников в школе
end;
writeln;
write(sum);
end.