Палочки я так не думаю 30 я думаю о вас не знает и не может сказать что у вас в душе будет только хуже чем вчера я была уверена на то и не оиимс но в моем сердце не все тело как будто не в душе я как бы и любил когда мне было тяжело с ним рядом с вами быть вместе и быть рядом любимым мужчиной всегда рядом с ним и без этого я хочу чтобы ты был рядом со мною рядом и я не знаю почему ты меня так не любит но ты же знаешь что мне надо быть рядом с тобою быть не может рядом быть и быть любимым и любить его и знать как быть счастливым и как оно проходит хорошо или как будто в сердце и в голове сердце не меняется а сердце не может быть таким же как и все
// 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.
Объяснение:
мая 02
С 16:00 по 16:30