В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');
Чтобы быть вкурсе всего того что происходит вокруг тебя , в любых точках мира и тд
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.
Антоним этого слова: <span>отнятие</span>
1.
var x,y:integer;
begin
write('X=');
read(x);
if x>2 then y:=sqr(x) else y:=4;
write('Y=',y);
<span>end.
2.
var x:integer;
y:real;
begin
writeln('X=');
read(x);
if x<7 then y:=3*x+9 else y:=sin(x)+1;
writeln('Y=',y:0:3);//ограничивать 0 знаков перед запятой и 3 знака после.
<span>end.</span></span>