1) var n,a,kol,sum,i:int64; begin read(n); for i:=1 to n do begin read(a); if (i mod 2)=1 then begin inc(sum,a); inc(kol); end; end; writeln(sum/kol); end. 2)var n,a,kol,sum,i,pr:int64; begin read(n); for i:=1 to n do begin read(a); if (i mod 2)=0 then begin inc(sum,a); end; if a<0 then pr:=pr*a; if (a mod 2)=1 then inc(kol); end; writeln(sum,' ',pr,' ',kol); end. 3) var ma,n,a,i:int64; begin read(n); for i:=1 to n do begin read(a); if (a>ma) then begin ma:=a; end; end; writeln(ma); end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 function Гласные_в_слове(w:string):sequence of char; begin Result:=w.ToCharArray.Where(c->Pos(c,'аеёиоуыэюя')>0).Distinct end;
begin var s:=ReadlnString('>'); var w:=s.ToWords(',','.'); var P:=Гласные_в_слове(w[0]); for var i:=1 to Length(w,0)-1 do begin var Q:=Гласные_в_слове(w[i]); P:=P.InterSect(Q) end; P:=P.Sorted; if P.Count>0 then begin Write('Гласные, которые есть в каждом слове: '); P.Println(',') end else Writeln('Нет ни одной одинаковой гласной во всех словах'); var R:='бвгджзйклмнпрстфхцчшщъь'.ToCharArray.ToList; foreach var c in s do if c in R then R.Remove(c); if R.Count>0 then begin Write('Согласные, которых нет ни в одном слове: '); R.Println(',') end else Writeln('Все согласные присутствуют в тексте') end.
Тестовое решение > фонарик,барахолка,биосфера,волокуша,макароны. Гласные, которые есть в каждом слове: а,о Согласные, которых нет ни в одном слове: г,д,ж,з,й,п,т,ц,ч,щ,ъ,ь
begin
read(n);
for i:=1 to n do begin
read(a);
if (i mod 2)=1 then begin
inc(sum,a);
inc(kol);
end;
end;
writeln(sum/kol);
end.
2)var n,a,kol,sum,i,pr:int64;
begin
read(n);
for i:=1 to n do begin
read(a);
if (i mod 2)=0 then begin
inc(sum,a);
end;
if a<0 then pr:=pr*a;
if (a mod 2)=1 then inc(kol);
end;
writeln(sum,' ',pr,' ',kol);
end.
3) var ma,n,a,i:int64;
begin
read(n);
for i:=1 to n do begin
read(a);
if (a>ma) then begin
ma:=a;
end;
end;
writeln(ma);
end.