// 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.
1. Разобьем условие на части, чтобы было нагляднее. в числе меньше восьми цифр "И" [число кратно 3 "ИЛИ" (число содержит 2 "И" число кратно 5)]
2. Условие "в числе меньше восьми цифр" связано с остальной частью выражения по "И", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием. Варианты 4) и 6) содержат 8 цифр и отбрасываются.
3. число кратно 3 "ИЛИ" число содержит 2 "И" число кратно 5 Если варианты "число кратно 3" есть, мы их выбираем, а это условие отбрасываем. Кратны трем числа 1) 69 2) 12 и 7) 15.
4. Остались числа 3) 25, 5) 22 и 8) 55. Проверяем их на условие число содержит 2 "И" число кратно 5 Содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.
// 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.