Лабораторная работа № 14. Двумерные массивы. Вариант 10 Pascal

Задание 1.Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант 10. Вводится двумерный массив А. С помощью датчика случайных чисел задается массив В. Необходимо элементы массива B, равные 1, заменить на соответсвующие элементы массива A, увеличенные в 100 раз. Результирующий массив B вывести построчно.
             
Programma s2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A,B: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
forI := 1 To n Do begin
forj := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговый массив:':25);
for i:=1 to n do begin
for j:=1 to m do begin
B[i,j]:=random(10);
If B[i,j]=1 then B[i,j]:=A[i,j]*100;
Write(' B[',i,',',j,']=',B[i,j],';');
end;
writeln('   ');
end;
end.

Задание 2. Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить  ошибки , представить правильный вариант программы и проверить его тестами.
Вариант10.
Programmas2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A: LinMass;
n,m,j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
forI := 1 To nDo begin
forj := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=')
ReadLn(A[i,j]);
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[i,3]:=- A[i,3];
Write(' A[',i,',',j,']=',A[i,j],';');
writeln('   ');
end;
end.

Задание 3. Решить задачу, составить программу и выполнить.
Вариант 10. С помощью датчика случайных чисел заданы два двумерных массива размером 3 строки и 4 столбца . Создать третий массив такого же размера, каждый элемент которого вычисляется как сумма соответствующих элементом первых двух, если они равны между собой и как разность, если элементы не равны. Все массивы вывести.

Задание 4. Решить задачу, составить программу и выполнить.
Вариант 10. Задать два двумерных массива, у которых число строк не равно числу столбцов. Вычислить  третий массив, каждый элемент которого получать сложением соответствующих элементов первых двух. При этом, если получаемый элемент третьего массива больше заданного числа, то его заменять на это число, в противном случае –
оставлять без изменения. Все массивы вывести.