===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.
Var s:string; i:integer;
begin
readln(s);
s[1]:=Upcase(s[1]);
for i:=2 to length(s) do s[i]:=lowcase(s[i]);
for i:=1 to length(s)-2 do
if (s[i] in ['.','?','!'])and(s[i+1]=' ')
then s[i+2]:=Upcase(s[i+2]);
writeln(s);
end.
Пример:
слОва отдЕЛены друг от друга ОДНИМ пробелом. испрАвить стрОкУ? вывести полУЧЕнную стрОКу на экран!
Слова отделены друг от друга одним пробелом. Исправить строку? Вывести полученную строку на экран!
Ответ:
В десять часов утра обе армии сошлись на ружейный выстрел, и по всей линии открылся огонь. Затем войска бросились врукопашную; первое столкновение произошло на левом фланге русской пехоты, правый фланг шведской пехоты, воодушевленный присутствием короля, бросился на русских и опрокинул батальон Новгородского полка; в нашей линии образовался прорыв. Петр Великий, заметив опасность, взял батальон второй линии и лично повел его на неприятеля.
//PascalABC.Net 3.1.0.1200
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.