1) Сложение и умножение в 2 CC 1) 10101 и 111
2) 100011 и 101
3) 11011 и 1001
2) Сложение и умножение в 8 CC
1) 344 и 23
2) 214 и 24
3) 334 и 156
3) Сложение в 16 CC
1) 293 и 3CC
2) 416 и 255
3) 372 и 1FО
4) Умножение в 16 CC
1) 2С на 12
2) 2А на 18
3) 66 на 1С
const
max = 42;
var
vt:array[1..max]of integer;
i,n:byte;
x:integer;
num:integer;
BEGIN
n := max;
writeln('Массив из n элементов будет задан случайными числами на интервале [0..20].');
readln(n);
writeln('Подсчитать количество положительных элементов больших чем указанное число.');
writeln('Введите число: '); readln(x);
writeln(' ');
writeln('Начальный Массив' );
randomize;
num := 0;
for i:=1 to n do begin
vt[i]:=random(-512,512);
write(vt[i], ' ');
if (vt[i]>0) then
num:=num+1;
end;
writeln(' ');
writeln('Найдено ', num,' положительных элементов больших чем ', x);
END.