Var
A:array[1..30] of integer;
N,k,i:byte;
Min,Max:integer;
Begin
ReadLn(N);
k:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if A[i]<= 30 then k:=k+1
End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
Begin
if A[i]>Max then Max:=A[i];
if A[i]<Min then Min:=A[i];
End;
WriteLn(Max-Min,' ',k);
End.
D:\Школа\Ученики\Адреса\Успеваемость\Нарушения
Чтобы перейти из десятичной системы счисления в двоичную, нужно выполнить деление столбиком на 2, а остатки, начиная с последнего, и будут являтся ответом:
458 =)
Делал через java... могу код скинуть если нужно
1 + 1 + 1 + 1 = 4
Если я не косоглазый. Условие лучше в следующий раз записывать в логическом порядке