// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); var y:=ArrRandom(n,1,100); y.Println(', '); var imax:=0; var imin:=0; for var i:=1 to n-1 do if y[i]>y[imax] then imax:=i else if y[i]<y[imin] then imin:=i; Swap(y[imax],y[imin]); y.Println(', ') end.
Var a, b, c: integer; begin readln(a, b, c); //вводим a b c if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a else writeln(a); //иначе вывести a if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b else writeln(b); //иначе вывести b if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c else writeln(c); //иначе вывести c <span>end.</span>
{Задано некоторое целое число N. Выведите на экран название геометрической фигуры (объекта), имеющей N вершин.} program z1; var n:integer; begin Writeln('Введите количество вершин:'); read(n); if n=3 then writeln('Треугольник.'); if n=4 then writeln('Квадрат.'); if n>=5 then writeln (n,'-угольник.'); end.