write('Введите число: '); readln(n); // ввод числа n
for i := 1 to 3 do
for j := 1 to 4 do begin
arr[i, j] := random(100); // заполнение массива случайными числами от 0 до 100
if arr[i, j] > n then // если число больше заданного числа, то...
count += 1; // увеличиваем значение переменной count на 1
end;
writeln('Массив: ', arr); // вывод массива
writeln('Чисел, больше ', n, ': ', count); // вывод кол-ва элементов, больше n.
end.
Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.
1.
1) 219[10] > 21[10]
2) 25[10] < 71[10]
Объяснение:
[10] - десятичная система
2.
ответ:
а) 211212 б) 201212
Объяснение:
Т.к. это двоичная система, то полный десяток это 2. То есть:
1 + 1 = 2
1 + 2 = 11
2 + 2 = 12
а) 101012
10112
211212
б) 100012
101112
201212
3.
ответ: 1011001_(2)
Объяснение:
Было бы неплохо, конечно, еще указать в каком из четырех обратных кодов это надо представить, но ладно. Разберем случай первого обратного кода:
1) отбросить знак минус (-38) => 38
2) перевести в двоичный код: 38_(10) = 100110_(2)
3) инвертировать все биты: 100110_(2) => 011001_(2)
4) приписать слева единицу, как знак отрицательного числа: 011001_(2) => 1011001_(2)
Программа:
Pascal:
var
arr: array[1..3, 1..4] of integer;
i, j, n, count: integer;
begin
write('Введите число: '); readln(n); // ввод числа n
for i := 1 to 3 do
for j := 1 to 4 do begin
arr[i, j] := random(100); // заполнение массива случайными числами от 0 до 100
if arr[i, j] > n then // если число больше заданного числа, то...
count += 1; // увеличиваем значение переменной count на 1
end;
writeln('Массив: ', arr); // вывод массива
writeln('Чисел, больше ', n, ': ', count); // вывод кол-ва элементов, больше n.
end.
Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.