1. Заполнить прямоуг. Матрицу единицами и нулями в шахматном порядке, начиная с верхнего левого угла.
2. Найти в каждой строке матрицы макс. и мин. элементы и поместить их на место первого и последнего эл-та строки, соответственно. Матрицу напечатать в общепринятом виде.
3. Задан массив А размером (N*M) и вектор В размером N . Элементы первого столбца массива А упорядочены по убыванию. Включить массив В в качестве новой строки в массив А с сохранением упорядоченности по эл-там первого столбца.


Заранее всем спасибо.

В чем конкретно проблема ? FAQ: Матрицы

+ Поиск

1 Задача

вариант 1:

procedure CreateMatrix(var mx: TMatrix; n, m: Integer);
var
  i, j: Integer;
begin
  for i := 1 to n do
   for j := 1 to m do
    if odd(i) = odd(j) then mx[i, j] := 1 else mx[i, j] := 0;
end;

А что такое odd(i) - можно ли заменить odd каким-нить другим словом?

Я теории уже по матрицам столько начитался... но все равно не догоняю. Я конечно понимаю, что на этом форуме сидят компьютерные гении, но я не из вашего числа (пока). Поэтому хотелось бы увидеть то, что я прошу - т.е. решение задач.
2 klem4 - спасибо за первую.

odd(i) возвращает true если i - НЕчетное

odd(i) == (i mod 2 <> 0)