Сформировать массив из элементов матрицы - Pascal ABC (13442)

Формулировка задачи:

Ребят очень прошу помочь, ничего не получается. Надо решить 3 и на выбор 1 или 2. 1. Дан двумерный массив размером 4×6, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен количеству элементов соответствующей строки, больших данного числа. 2. Дан двумерный массив размером n×m, заполненный случайным образом в интервале [-10;10]. Определить, есть ли в данном массиве столбец, в котором имеется два максимальных элементов всего массива. 3. Заполнить массив размером 7×7 по правилу: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 3 почти сделал, но что то не хватает.

                    Листинг программы
                
 
                        
                          
                    
program ex; 
var 
a:array[1..7,1..7] of integer; 
i,j:integer; 
begin 
for i:=1 to 7 do 
begin 
for j:=1 to 7 do 
begin 
if((j>=i)and(j<=7-i+1)) 
or((j<=i)and(j=7-i+1)) then a[i,j]:=1 
else a[i,j]:=0; 
write(a[i,j]:3); 
end; 
writeln 
end; 
end.

Решение задачи: «Сформировать массив из элементов матрицы»

Листинг программы

const n=7;
var a:array[1..n,1..n] of byte;
    i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((j>=i)and(j<=n-i+1)) or(i=j)or(j=n-i+1)
    then a[i,j]:=1 else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln
 end;
end.

Объяснение кода листинга программы

В данном коде формируется массив из элементов матрицы.

Переменная n инициализируется значением 7.
Создается переменная a типа array[1..n,1..n] of byte. Эта переменная представляет собой матрицу размером n на n, где каждый элемент представлен байтом.
Определяются две переменные i и j типа integer. Они будут использоваться для итерации по матрице.
Запускается цикл for i:=1 до n do, который выполняется n раз (где n - значение переменной n).
Вложенный цикл for j:=1 до n do начинается. Он также выполняется n раз.
В каждой итерации вложенного цикла проверяется условие:
- j>=i и j<=n-i+1. Это условие говорит о том, что текущий элемент матрицы должен быть либо ниже, либо равен i-му элементу, либо равен n-i+1-му элементу.
- i=j или j=n-i+1. Это условие говорит о том, что текущий элемент матрицы должен быть равен i-му элементу или n-i+1-му элементу.
Если условие выполняется, то присваивается значение 1 элементу матрицы с индексами i и j. Если условие не выполняется, то присваивается значение 0 элементу матрицы с индексами i и j.
После завершения вложенного цикла выводится значение элемента матрицы с индексами i и j.
Выводится символ новой строки, чтобы перейти к следующей строке вывода.
Цикл for i:=1 до n do заканчивается.
Код завершается.