Имеется таблица вещественных чисел B[1:1020]. Составить алгоритм, по которому положительные числа будут заменены на 1, а отрицательные на 0 и подсчитать
5-9 класс
|
количество 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;
writeln(c, ' единиц.');
end.
Другие вопросы из категории
Как называется устройства обработки информации
Кикин вы знаете устройства хранения информации
Читайте также
качестве результата на экран выводится фраза "Саша старше Маши" или "Маша старше Саши" (предполагаем, что кто-нибудь из них обязательно старше).
качестве результата на экран выводится фраза "Саша старше Маши" или "Маша старше Саши"
2) составить логическое условие, которое истино только тогда, когда данное число чётное, натуральное не больше 100.
3) Даны 3 вещественных числа a/b/c/, все четные числа рзделить на 2, все не четные оставить без изменения.
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
таблице наблюдений определите тип входных данных и правило, по которому осуществляется их преобразование