Разработка приложений в массиве A

1.  Разработайте приложение, которое отыскивает произведение положительных значений компонентов двумерного массива A: matrix и отображает на экране полученный результат.

 program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,j:integer;

begin

  s:=1;

   for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

  for i:=0 to r-1 do

    for j:=0 to c-1 do

      if A[i,j]>0 then s:=s*A[i,j];

  write ('s=',s);

  readln;

end.

2.  Разработайте приложение, которое отыскивает максимальный по значению элемент двумерного массива A: matrix и значения его индексов и отображает на экране полученный результат.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,t,m,n,i,j:integer;

begin

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

  t:=A[0,0];

  for i:=0 to r-1 do

    for j:=0 to c-1 do

      if A[i,j]>t then

      begin

      t:=A[i,j]; m:=i; n:=j

      end;

  write ('A[',m,',',n,']=',t);

  readln;

end.

3.  Разработайте приложение, которое отыскивает произведение элементов двумерного массива A: matrix, лежащих на главной диагонали и отображает на экране полученный результат.

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,j:integer;

begin

 s:=1;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

 for i:=0 to r-1 do

   s:=s*A[i,i];

   writeln ('s=',s);

  readln;

end.

4.  Разработайте приложение, которое отыскивает произведение элементов двумерного массива A: matrix лежащих, на побочной диагонали и отображает на экране полученный результат.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,j:integer;

begin

 s:=1;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

 for i:=0 to r-1 do

   s:=s*A[i,r-1-i];

   writeln ('s=',s);

  readln;

end.

5.  Разработайте приложение, которое в массиве A: matrix в столбце с заданным индексом отыскивает произведение элементов и отображает на экране полученный результат.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,j:integer;

begin

 s:=1;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

 writeln ('j=');

 readln (j);

   for i:=0 to r-1 do

   begin

   s:=s*A[i,j]

   end;

   writeln ('s=',s);

  readln;

end.

6.  Разработайте приложение, которое в массиве A: matrix в строке с заданным индексом отыскивает сумму элементов и отображает на экране полученный результат.

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,j:integer;

begin

 s:=1;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

 writeln ('i=');

 readln (i);

   for j:=0 to r-1 do

   begin

   s:=s*A[i,j]

   end;

   writeln ('s=',s);

  readln;

end.

7.  Разработайте приложение, которое в массиве A: matrix обменивает значениями элементы строк с заданными индексами и отображает на экране полученный массив.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,j1,j2,t,j:integer;

begin

 s:=1;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

 writeln ('j1=');

 readln (j1);

 writeln ('j2=');

 readln (j2);

   for i:=0 to r-1 do

     begin

     t:=A[i,j1];

     A[i,j1]:=A[i,j2];

     A[i,j2]:=t

     end;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      writeln ('A[',i,',',j,']=',A[i,j]);

  readln;

end

8.  Разработайте приложение, которое в массиве A: matrix обменивает значениями элементы столбцов с заданными индексами и отображает на экране полученный массив.

  SysUtils;

const

  r = 3;// число строк

  c = 3; //число столбцов

type

  rows = 0..r -1;

  colomns = 0..c -1;

  matrix = array[rows, colomns] of integer;

var A:matrix; s,i,i1,i2,t,j:integer;

begin

 s:=1;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      begin

      write ('A[',i,',',j,']=');

      readln (A[i,j])

      end;

 writeln ('i1=');

 readln (i1);

 writeln ('i2=');

 readln (i2);

   for j:=0 to c-1 do

     begin

     t:=A[i1,j];

     A[i1,j]:=A[i2,j];

     A[i2,j]:=t

     end;

 for i:=0 to r-1 do

    for j:=0 to c-1 do

      writeln ('A[',i,',',j,']=',A[i,j]);

  readln;

end.