Обозначим за n%m операцию, возвращающую остаток от целочисленного деления n на m.
известно, что сумма всех целых положительных чисел a, для которых следующее логическое высказывание истинно:
не (a< 2 или a> 18 или a%x< > 0) или не (a< 4 или a> 20 или a%4< > 0)
равна 81.
найдите такое значение x, при котором это возможно. в ответе укажите целое число.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadlnInteger);
Println(a.Max-a.Min,a.Where(p->p<=30).Count);
end.
2. Школьный вариант в стиле "ТурбоПаскаль 1983г."
var
n,i,a,k,max,min:integer;
begin
Readln(n);
max:=0;
min:=301;
k:=0;
for i:=1 to n do begin
Read(a);
if a>max then max:=a;
if a<min then min:=a;
if a<=30 then k:=k+1
end;
Writeln(max-min,' ',k)
end.