Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
if M[i]>0 then inc(a);
if M[i]=0 then inc(b);
if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
<span>end.</span>
Задачу удобно решать с помощью кругов Эйлера (см. рис.).
K1+K2+K3+K4+K5+K6 = 1000
K2+K4 = 250
K4+K5+K6 = 200
K3+K5 = 500
K4 = 20
K5 = 10
K2+K3+K4+K5+K6 - ?
K1 - ?
K2+K3+K4+K5+K6 = (K2+K4)+(K4+K5+K6)+(K3+K5)-K4-K5 = 250+200+500-20-10 = 920
K1 = (K1+K2+K3+K4+K5+K6)-(K2+K3+K4+K5+K6) = 1000-920 = 80
Var x,y:integer;
begin;
readln(x);
if x>0 then
begin;
y:=2*sqr(x)+5;
write(y);
end
else
begin;
y:=7*sqr(x)-5;
write(y);
end;
end.
Нужен учебник, так ничего не сказать :)
Если это задание информатичке понесёшь, то пиши что-то вроде этого:
"30 декабря в Москве собрались уполномоченные делегации советских социалистических республик, которые утвердили Договор и Декларацию об образовании Союза Советских Социалистических республик (СССР)" - это словесная модель исторического события.