// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Ответ:
Результат:
18.5410 =10 010.100 010 12
Решение:
Приведем целую часть числа 18.54 в систему счисления 2 последовательным делением на число 2:
18/2=9 остаток 0
9/2=4 остаток 1
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
1810=100102
Приведем дробную часть числа 18.54 в систему счисления 2 последовательным умножением на число 2:
0.54·2=1.08=0.08+1
0.08·2=0.16=0.16+0
0.16·2=0.32=0.32+0
0.32·2=0.64=0.64+0
0.64·2=1.28=0.28+1
0.28·2=0.56=0.56+0
0.56·2=1.12=0.12+1
0.12·2=0.24=0.24+0
0.24·2=0.48=0.48+0
0.48·2=0.96=0.96+0
Записав полученные цифры в ряд сверху вниз, получим:
0.5410=0.10001010002
Объединив целые и дробные части, получим решение:
18.5410=10010.10001012
Объяснение:
Begin Randomize;
writeln('Для молодежи: ',Random(100)+1);
writeln('Для взрослых: ',Random(100)+101);
writeln('Для пенсионеров: ',Random(50)+201);
<span>end.</span>
Program abc;
Const
n=3;
m=3;
Var a:array[1..n,1..m] of integer;
b,y,i,j,sum:integer;
srd:real;
Begin
Writeln('Введите числа массива: ');
For i:=1 to n do
For j:=1 to m do
Begin
Write('a[',i,',',j,']= ');
Readln(a[i,j]);
if a[i,j]>0 then
begin
sum:=sum+a[i,j];
inc(b);
end
else
If a[i,j]<0 then
Inc(y);
End;
If sum>0 then
begin
srd:=sum/b;
Writeln('Среднее =',srd);
end
else
Writeln('Нет положительных членов массива');
If y>0 then
begin
Writeln('Количество отрицательных элементов =',y);
end
else
Writeln('Нет отрицательных членов массива');
End.