Решение в прикрепленном файле. В турбо Паскале должна работать.
const n = 10;
var a: array [1..n] of integer;
i: integer;
begin
for i:= 1 to n do readln(a[i]);
writeln('В прямом порядке: ');
for i:= 1 to n do write(a[i],' ');
writeln;
writeln('В обратном порядке: ');
for i:= n downto 1 do write(a[i], ' ');
end.
В области Только спорт и хор будет 6 - 3 =3 В зоне только хор и драмкружок - 10-3 = 7 В зоне только драмкружок и спорт - 8 - 3 = 5 Посчитаем сумму 27 ( весь драмкружок) + 19 ( только хор) + 3 ( хор и спорт) + 11 ( только спорт) = 60 70 - 60 = 10 ответ:10 детей не ходят в хор, драмкружок и спорт
успехов!
Так пойдет? Одно целое, одно вещественное число в PABC.NET <span />