Дано число x=100001. Перевести число в прямой обратный и дополнительный коды.

Question

Информатика: Дано число x=100001. Перевести число в прямой обратный и дополнительный коды.

dimabarabanov · Accepted Answer

Var
x:real;
arr2: array [1..4,1..6] of integer;
arr1: array [1..4] of integer;
begin
    writeln('Введи число для сравнения');
    readln(x);
   for var i:=1 to 4 do
  begin
   writeln('Вводим строку ',i);
for var j:=1 to 6 do
   begin
writeln('Введи число ', j);
   readln(arr2[i,j]);
if arr2[i,j]>x then arr1[i]:=arr1[i]+1;
end;
    end;
   writeln('Двумерный массив: ', arr2, ' Количество чисел больше заданного: ', arr1);
end.

MOGZ ответил