Var a:array[1..200] of real;
n,k1,k2,k3,i:integer;
begin
randomize;
writeln ('Введи размер массива');
readln (n);
for i:=1 to n do
begin
a[i]:=21*random-10;
if a[i]>0 then inc(k1)
else if a[i]<0 then inc(k2)
else inc(k3);
write (a[i]:4);
end;
writeln ('Положительных=',k1);
writeln ('отлицательных=',k2);
writeln ('нулевых=',k3);
end.
P = 2
Ответ a
================
1) 3) 4)
Лиса любит розовые,но не любит зелёные=>она выберет розовые.
Волк любит синие,но не любит зелёные=>он выберет зелёные
Ягнёнок любит и синие и розовые,но т.к. розовые заняты=>он возьмёт синие
RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
Eclipse; IntelliJ IDEA; Android Studio.