Var A:array[1..5] of integer; i,O,P:integer; Begin Write('Введите массив A(5): '); O:=0; P:=0; For i:= 1 to 5 do Begin Read(A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
Заполнение случайными числами:
Const N = 5; Var A:array[1..N] of integer; i,O,P:integer; Begin Randomize; Write('Введите массив A(5):'); O:=0; P:=0; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
Целая часть от деления Остаток от деления 840 div 2 = 420 840 mod 2 = 0 420 div 2 = 210 420 mod 2 = 0 210 div 2 = 105 210 mod 2 = 0 105 div 2 = 52 105 mod 2 = 1 52 div 2 = 26 52 mod 2 = 0 26 div 2 = 13 26 mod 2 = 0 13 div 2 = 6 13 mod 2 = 1 6 div 2 = 3 6 mod 2 = 0 3 div 2 = 1 3 mod 2 = 1 1 div 2 = 0 1 mod 2 = 1 Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1101001000 840 = 1101001000
