{* Задача 397 *}

Unit ZADACH397;
Interface
Implementation
Begin
 writeln('Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l), по заданно- му правилу sin(i+j/2). Фактическое число строк (n,k) и столбцов (m,l) ка- ждой матрицы вводить с клавиатуры. Создать функцию, определяющую сумму первой строки и последнего столбца матрицы. Вывести на экран исходные массивы и среднее значение сумм. ');
End.

Program zadach397;

Uses zadach397.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Type {* Создание новых типов данных *}
  Tm = Array[1..10, 1..10] Of real;
Var {* Объявление переменных *}
  t                    : integer;
  m                    : integer;
  n                    : integer;
  k                    : integer;
  l                    : integer;
  f                    : integer;
  a                    : tm;
  b                    : tm;
  sa                   : tm;
  sb                   : tm;
Procedure vvod1 (str : integer;
stl                  : integer;
Var {* В работе нам потребуются переменные: *}
  matr : tm);
Var {* Объявление переменных *}
  i                     : integer;
  j                     : integer;
  Begin
For i := 1 To str Do {* Цикл для i => [1 .. str] *}
  For j;
Procedure vivod  (str : integer;
stl                   : integer;
matr                  : tm);
Var {* В работе нам потребуются переменные: *}
  i                    : integer;
  j                    : integer;
  Begin
For i := 1 To str Do {* Увеличиваем i от 1 до str с шагом 1 *}
  Begin
For j;
Procedure summa (str : integer;
stl                  : integer;
matr                 : tm);
Var {* Необходимые переменные *}
  i          : integer;
  j          : integer;
  sum        : real;
  Begin
  sum := 0;
For j := 1 To stl Do {* Увеличиваем j от 1 до stl с шагом 1 *}
  sum;
For i := 1 To str Do {* Увеличиваем i от 1 до str с шагом 1 *}
  sum;
Var {* В работе нам потребуются переменные: *}
  aaa : real;
  sum : real;
  bbb : real;
  Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('vvedite razmernost" matric a i b');
  readln(n, m, k, l);
  Begin
  vvod1(n, m, a);
  vvod1(k, l, b);
  End;
  vivod(n, m, a);
  writeln; {* Пропускаем одну строку *}
  vivod(k, l, b);
  writeln; {* Вывод пустой строки *}
  summa(n, m, a);
  aaa := sum;
  writeln; {* Пропускаем одну строку *}
  summa(k, l, b);
  bbb := sum;
  writeln('srednee znachenie',(aaa + bbb) / 2);
  readln
  End..