Помогите пожалуйста очень срочно!!! Дана программа, содержащая пропуски и синтаксические...

Question

Помогите пожалуйста очень срочно!!!
Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами.
Programmas2;
type
LinMass = array [1..1000] of Integer;
var
B: LinMass;
n,m, i, 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;
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[1,j]:=111;
A[i,2]:=222;
Write(' A[',i,',',j,']=',B[i,j],';')
end;
writeln(' ');
end;
end.

Comments

Бред какой-то. Объявлен одномерный массив, с ним работают как с двумерным, вводят данные, а потом затирают их константой.

Answer 1

Type
    Mass = array [1..1000, 1..1000] of Integer;

var
    A: Mass;
    n, m, i, j: Integer;

begin
    Write('Количество строк массива: ');
    ReadLn(n);
    Write('Количество столбцов массива: ');
    ReadLn(m);
    for i := 1 To n Do
    begin
        for j := 1 To m Do
        begin
            Write('Введите элементы массива A[', i, ',', j, ']=');
            ReadLn(A[i, j]);
        end;
    end;
    
    WriteLn('Итоговый массив:');
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            A[1, j] := 111;
            A[i, 2] := 222;
            Write(' A[', i, ',', j, ']=', A[i, j], ';')
        end;
        WriteLn;
    end;
end.

Задание можно озвучить так:
Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.