1Гб=1024 Мб
1Мб=1024 Кб
Бит-самая маленькая единица информации
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.
Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.
Const n=20;
var x : array[1..n] of integer;
i, k1, k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(221)-70;
write(x[i],' ');
end;
writeln;
k1:=0; k2:=0;
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);
<span>end.
Пример:
Исходный массив:
73 -14 70 32 25 -31 110 117 11 -41 122 129 -49 54 65 57 -32 -49 110 -25
<span>k1=13 k2=7</span></span>