As, ad, ac, az, sa, sd, sc, sz, da, ds, dc, dz, ca, cs, cd, cz, za, zs, zd, zc.
Program NoName;
var num: integer;
x, y: real;
Begin
readln(num);
if (num>=10)and(num<=99)then
begin
x := trunc(num/10);
y := (num/10-trunc(num/10))*10;
writeln(x+y);
writeln(x*y);
writeln(y*10+x);
end;
end.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var mx:=a.Max;
a:=a.Select(x->x>0?mx:x).ToArray; a.Println
end.
Пример
n= 13
8 24 17 -33 -50 34 -41 6 23 38 -19 24 38
38 38 38 -33 -50 38 -41 38 38 38 -19 38 38