Имеется таблица вещественных чисел b[1: 1020]. составить алгоритм, по которому положительные числа будут заменены на 1, а отрицательные на 0 и подсчитать количество 1 в таблице
Const n = 1; m = 1020; var b: array [1..n, 1..m] of real; i, j, c: integer; begin randomize; for i := 1 to n do for j := 1 to m do b[i, j] := Random(1001) - 500;
for i := 1 to n do for j := 1 to m do begin b[i, j] := (Sign(b[i, j]) + 1) shr 1; c := c + Trunc(b[i, j]); end;
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 28 [Терпение и труд все перетрут]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 56 байт на 1024 (советую использовать калькулятор) получаем 0,05 кбайт [56/1024=0,0546875]. В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 28 [Терпение и труд все перетрут]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 56 байт на 1024 (советую использовать калькулятор) получаем 0,05 кбайт [56/1024=0,0546875]. В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]
var
b: array [1..n, 1..m] of real;
i, j, c: integer;
begin
randomize;
for i := 1 to n do
for j := 1 to m do
b[i, j] := Random(1001) - 500;
for i := 1 to n do
for j := 1 to m do begin
b[i, j] := (Sign(b[i, j]) + 1) shr 1;
c := c + Trunc(b[i, j]);
end;
writeln(c, ' единиц.');
end.