Помогите пожалуйста очень срочно!!! Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами. Programmas2; t...
Помогите пожалуйста очень срочно!!!
Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами.
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.
Гость
Ответ(ы) на вопрос:
Гость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. Вывести итоговый массив.
Не нашли ответ?
Похожие вопросы