n = 5;

  m = 10;

var

  a: array [1..n,1..n] of integer;

  c: array [1..m] of integer;

  i,j,k: integer;

begin

//заполнения массива  a[i,j] случайными числами

  for i:=1 to n do

  begin

    for j:=1 to n do

    begin

    a[i,j] := Random(50);

    Write(a[i,j], ' ');

    end;

    writeln;

  end;

  for i:=1 to n do //заносим в цикле массив а в С

    c[i]:= a[i,i];

    i:=1;

    j:=6;

    while i<=n Do // пока количество строк меньше, чем размерность массива

    begin

      c[j] := a[i,n-i+1];

      inc(i);

      inc(j);

    end;

for i:=1 to m do

  for j:=i+1 to m do

   if c[i]>c[j] then

   begin

     k:=c[j];

     c[j] := c[i];

     c[i] := k;

   end;

Writeln('max = ',c[m]);

Writeln('min = ',c[1]);

     end. 

 

Приложение  В

 

program am4;

const

  n = 5;

  m = n*2;

var

  a: array [1..n] of integer; //создаем массивы

  b: array [1..n] of integer;

  c: array [1..m] of integer;

  i,j,k,d: integer;

begin

  for i := 1 to n do //заполняем массивы

   begin

    a[i] := Random(50);

    write(a[i],' ');

   end;

  writeln;

  writeln;

  for i := 1 to n do

   begin

    b[i] := Random(50);

    write(b[i],' ');

   end;

  writeln;

  writeln;

  for i := 1 to n do //сортируем массив a[i,j] по убыванию

   for j := i+1 to n do

   if a[i] < a[j] then

   begin

     k := a[j];

     a[j] := a[i];

     a[i] := k;

   end;

   for i:= 1 to n do

   write(a[i], ' ');

   writeln;

  for i := 1 to n do //сортируем массив b[i,j] по возрастанию

   for j := i+1 to n do

   if b[i] > b[j] then

   begin

     k := b[j];

     b[j] := b[i];

     b[i] := k;

   end;

   for i:= 1 to n do

   write(b[i], ' ');

   writeln;

 for i := 1 to n do //сливаем все массивы в один

   c[i] := a[i];

   k:=1;

  for i := n+1 to m do

    begin

      c[i] := b[k];

      k:=k+1;

    end;

  writeln;

 for i := 1 to m do //сортируем массив по убыванию

   for j := i+1 to m do

   if c[i] < c[j] then

   begin

     k := c[j];

     c[j] := c[i];

     c[i] := k;

   end;

   for i:= 1 to m do

   write(c[i], ' ');

   writeln;

  end. 

 

Приложение  Г

 

program am1;

const

  m = 5;

  n = 10;

var

  a: array [1..m,1..m] of integer; //создаем три массива

  b: array [1..m,1..m] of integer;

  c: array [1..m,1..m] of integer;

  k,i,j,p,q: integer;

  S: integer;

begin

  for i:=1 to m do //заполняем массив

  begin

    for j:=1 to m do

    begin

      a[i,j] := Random(50);

      write(a[i,j]:3,' ');

      end;

      writeln;

    end;

  writeln;

  for i:=1 to m do //заполняем массив

  begin

    for j:=1 to m do

    begin

      b[i,j] := Random(50);

      write(b[i,j],' ');

    end;

      writeln;

  end;

  writeln;

  for i:=1 to m do //умножаем матрицу на матрицу

  begin

    for j:=1 to m do

    begin

      S:=0;

      for k:=1 to m do

        S := S + a[i,k]* b[k,j];

        C[i,j] := S;

    end;

  end;

  write('A*Â= ');

  writeln;

  for i:=1 to m do //выводим матрицу

  begin

    for j:=1 to m do

  write(C[i,j]:7);

  writeln;

  end;

     end.

 

Приложение  Д

 

program s1;

const

  n = 10;

var

  C: array [1..n] of integer; //создаем массив

  i,j,k: integer;

begin

  for i := 1 to n do //заполняем его числами от 0 до 2

    begin

    C[i] := random(3);

    write(C[i], ' ');

  end;

  writeln;

 for i := 1 to n do //сортируем по возрастанию

   for j := i+1 to n do

   if c[i] > c[j] then

   begin

     k := c[j];

     c[j] := c[i];

     c[i] := k;

   end;

   for i:= 1 to n do

   write(c[i], ' ');

   writeln; 

  end. 
 
 
 
 
 
 
 
 
 

 

Приложение  Е

 

program abc;

const

  n = 10;

var

  x: array [1..n] of real; //создаем массив

  i, s, j: integer;

begin

  for i:=1 to n do //перебираем массив от 1 до n

  begin // заполняя каждый элемент массива переменной s, которая равняется произве //дению себя на переменную j, изменяющуюся столько же раз, сколько и переменная i.

    s:=1;

    for j:=1 to i do

    s:=s*j;

    writeln(i, ' элемент массива=', 1/s);

  end;

   end. 

С помощью подпрограммы:

program abc;

const

  n = 10;

type

  mas = array [1..n] of integer;  

procedure Check(s: integer);

var

  i: integer;

  j: integer;

  X: mas;

begin

  s := 1;

    for j := 1 to i do

    s := s*j;

    writeln(i, 'элемент массива =', 1/s);

end; 

var

  s: integer;

  X: mas;

begin

  Check(X);

   end. 
 
 
 
 
 
 
 

Приложение  Ж

 

public class lab_1{

      public static void main(String args []){

            int n=15,i,j=0;

            int u[]=new int [n];

            u[0]=1;u[1]=1;

            System.out.println("Числа Фибоначчи");

             for (i=2;i<u.length;i++) //массив чисел фиббоначи

                   u[i]=u[i-1]+u[i-2];

             for (i=0;i<u.length;i++)

                   System.out.print(u[i]+" ");

             System.out.println();

             for (i=0; i<u.length;i++) //перебираем массив от 0 до n

                   if ((i+1)%5==0){

                         if (u[i]%5==0){

                               System.out.print(u[i]+"\t");

                               j++;

                         }

                   }

             System.out.println();

             if (j==0)

                   System.out.println("Нет, это не так!!!");

             else System.out.println("Да, это  так!!!");

      }

} 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  З

 

public class lab_2{

      public static void main(String args []){

            int n=5,i,j,max1=0,max2=0,min1,min2;

            int u[][]=new int [n][n];

            System.out.println("Массив");

             for (i=0;i<u.length;i++) //заполняем массив

                   for (j=0;j<u[i].length;j++)

                   u[i][j]=(int)Math.round(Math.random()*10);

             for (i=0;i<u.length;i++){ //выводим на экран

                   for (j=0;j<u[i].length;j++)

                   System.out.print(u[i][j]+" ");

                   System.out.println();

             }

             min1=u[0][0];min2=u[n-1][n-1];

             for (i=0;i<u.length;i++)

                   for (j=0;j<u[i].length;j++){

                         if (i==j){ //если индекс строки и столбца равны

                               if (u[i][j]>max1) //если max1 больше массива

                                     max1=u[i][j]; //то присвоить max1 массив

                               if (u[i][j]<min1)

                                     min1=u[i][j];

                         }

                         if (i==(n-1)-j){// поиск макс и мин в побочной

                               if (u[i][j]>max2)

                                     max2=u[i][j];

                               if (u[i][j]<min2)

                                     min2=u[i][j];

                         }

                   }

             System.out.println("Макс  эл-т главной диаонали "+max1+" минимальный "+min1);

             System.out.println("Макс  эл-т побочной диаонали "+max2+" минимальный "+min2);

      }

} 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  И

 
 

public class lab_3{

      public static int n=5;

      public static void uporyadochPoUbiv(int x[]){ //метод по убыванию