sm_l5_exp.pas

Program sm12_1;
uses Crt;
type matr = array[1..4,1..4] of integer;
     mass = array[1..4] of integer;
var a:matr; b,c:mass; i, j, sum, mlt:integer;
{раздел описания переменных закончен, начало программы}
Begin
ClrScr;
{ввод матрицы А(4х4)}
writeln('Введите матрицу A(4х4):');
for i:=1 to 4 do 
  for j:=1 to 4 do read(a[i,j]);
{вывод введенной матрицы А(4х4)}
writeln('Исходная матрица А(4х4):');
for i:=1 to 4 do begin
  for j:=1 to 4 do write(a[i,j]:3);
  writeln; {переход на новую строку}
end;
{сформируем массив B состоящий из элементов главной диагонали матрицы А(4х4)}
for i:=1 to 4 do
  for j:=1 to 4 do 
    if (i=j) then b[i]:=a[i,j];
{выведем полученный массив B на экран}
writeln('Полученный массив B - состоит из элементов главной диагонали матрицы А:');
for i:=1 to 4 do
  write(b[i]:3);
writeln;
{сформируем массив C состоящий из элементов побочной диагонали матрицы А(4х4)}
for i:=1 to 4 do
  for j:=1 to 4 do
    if (j=4+1-i) then c[i]:=a[i,j];
writeln('Полученный массив C - состоит из элементов побочной диагонали матрицы A:');
for i:=1 to 4 do
  write(c[i]:3);
writeln;
{обратите внимание, что вид условия для побочной диагонали - j=n+1-i, где n - размерность матрицы}
{теперь попробуем нестандартные задачи - посчитаем сумму элементов первой строки матрицы}
sum:=0;
for j:=1 to 4 do
  sum:=sum+a[1,j];
writeln('Сумма элементов первой строки матрицы: ',sum:3);
{теперь давайте посчитаем сумму элементов второго столбца матрицы}
sum:=0;
for i:=1 to 4 do
  sum:=sum+a[i,2];
writeln('Сумма элементов второго столбца матрицы: ',sum:3);
{и напоследок - найдем произведение четных элементов ниже главной диагонали матрицы}
mlt:=1;
for i:=1 to 4 do
  for j:=1 to 4 do
    if (i > j) and (a[i,j] mod 2 = 0) then mlt:=mlt*a[i,j];
writeln('Произведение четных элементов ниже главной диагонали матрицы: ',mlt:3);

{если полученное произведение равно единице - то у вас нету четных элементов ниже главной диагонали матрицы}

writeln('Для завершения работы программы нажмите любую клавишу...');
Readkey;
End.