Ответ а. єто докладно если .сто процентов
Const n=100;
var x : array[1..n] of integer;
i,k1,k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(41)-20;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
begin
if x[i]<0 then k1:=k1+1;
if x[i]>0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
end.
1<span>035 в 6 вот кароче как-то так. В десятичную сначала потом складываешь, потом делением на 6.</span>
Program test;
var a,b,c:integer;
begin
readIn(a);
readIn(b);
ReadIn(c);
writeIn(a+b/c+c/a*b);
end.
вроде так