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.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.