{* Задача 339 *}

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

Program Xenon;

Uses zadach339.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Type {* Создание новых типов данных *}
  TArray = Array[1..10, 1..10] Of real;
  marray = Array[1..5] Of real;
Var {* Объявление переменных *}
  A   : Tarray;
  B   : Tarray;
  C   : Tarray;
  D   : Tarray;
  n   : Byte;
  m   : Byte;
  k   : Byte;
  l   : Byte;
  h   : Char;
  x   : TArray;
  row : Byte;
  col : Byte;
Var {* Объявление переменных *}
  d            : Byte;
  i            : Byte;
  j            : Byte;
  s            : String;
  y            : String;
  Begin
For i := 1 To row Do; {* Переменная i увеличивается с 1 до row *}
  d            : Were Y;
For j := 1 To col Do; {* Цикл для j => [1 .. col] *}
  str(x[I      : 6;
j]           : 6;
y := y + s;
Var {* Объявление переменных *}
  i                 : integer;
  j                 : integer;
  Begin
For j := 1 To col Do; {* Цикл для j => [1 .. col] *}
Procedure Print(x : marray;
row               : Byte);
col               : Byte);
Var {* Объявление переменных *}
  I : Byte;
  j : Byte;
  Begin
For i := 1 To row Do {* Переменная i увеличивается с 1 до row *}
  Begin
For j := 1 To col Do {* Цикл для j => [1 .. col] *}
  Begin
write(x[I, j] : 7 : 2,’ ‘);
End;
writeln; {* Пропускаем одну строку *}
End;
Begin
write(‘vvedite chislo strok I stolbcov mat A’);
readln(m, n);
writeln(‘vibirite pravilo 1 - > pravilo;
2 - > pravilo’);
If h = ’1’ Then
  x[I, j]
Else y[I, j];
  InMatr(A, n, m, c);
writeln(‘vivod masiva’);
Print(n, m, C);
readKey; {* Нажмите любую клавишу *}
DoneWinCrt;
End....