Допустим, в стране N действуют следующие правила дорожного движения: Детям до 7 лет можно ездить в машине только в специальных креслах; Детям в возрасте от 7 до 12 лет можно ездить на заднем сидении без специального кресла; Тем, кому уже исполнилось 12 можно ездить на переднем пассажирском сидении; А тем, кому исполнилось 18, можно водить машину самим. Напишите программу, которая на вход будет принимать возраст человека, а на выходе будет определять, как этому человеку можно ездить в машине по правилам дорожного движения. Phyton

while (true) {

           Scanner InfoAge = new Scanner(System.in);

           System.out.println("Введите свой возраст: ");

           int age = InfoAge.nextInt();

           switch (age){

               case 1:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 2:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 3:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 4:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 5:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 6:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 7:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 8:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 9:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 10:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 11:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 12:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 13:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 14:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 15:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 16:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 17:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 18:

                   System.out.println("Ты можешь уже водить машину сам!");

                   break;

               default:

                   System.out.println("Такого пункта выбора не существует!");

           }

       }

1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше