<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,-20,20); a.Println;
Writeln('Положительных ',a.Where(t->t>0).Count,
', отрицательных ',a.Where(t->t<0).Count)
end.
<u>Пример</u>
19 7 4 15 15 -16 20 6 1 7 -15 -13 3 0 -10 -17 -14 -16 12 -9 -16 -6 6 10 4 -17 -17 19 20 -12 -18 18 9 -14 -17 -11 6 4 -8 -20 -2 18 -3 -6 -6 -12 -8 -8 -11 13 -6 19 19 3 -14 4 -19 14 -10 11 -19 -19 6 -8 4 -13 -2 -4 -3 -19 -2 3 12 11 14 -13 18 -9 -4 -4 12 11 9 -14 14 -17 20 -15 20 -1 -12 13 -7 1 20 -4 -9 -16 10 -13
Положительных 45, отрицательных 54
Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
var
j,i: integer;
begin
for i:= 0 to 9 do
begin
for j:=0 to 9 do
begin
if ((54*100+i*10+5)*10+j) mod 45 = 0 then writeln((54*100+i*10+5)*10+j);
end;
end;
<span>end.</span>
<span>информация,
представленная в формализованном виде, что обеспечивает возможность ее
хранения, обработки и передачи. </span>