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.
1895 год
..............................
Ну, например, школа - это система. Все ее объекты связаны отношениями и имеют общую цель.
Справа - AA
Слева - Y , если ты про эксел
Знайды вызначення коренив потим довав функцыю вызначення килбкости