Вот.Создал,заполнил,а дальше что делать? Создавать новый массив? И как Мне выполнить условие задачи?!
Program z_2;
const
Nmax=10;{Максимальное значение строк и столбцов матрицы}
type
mas=array[1..Nmax,1..Nmax] of integer;
{Процедура ввода массива}
Procedure vvod(var A:mas;var N,M:integer);
{A-матрица, N,M-Строка и столбец в матрице}
var
i,j:integer;{Номер строки и столбца в матрице}
begin
repeat
Write('Задайте число строк в матрице (1..',nmax,'): ');
ReadLn(N);
If (N<=0) and (N>Nmax) then
WriteLn('Ошибка! Повторите!');
until (N>0) and (N<=Nmax);
repeat
Write('Задайте число столбцов в матрице (1..',nmax,'): ');
ReadLn(M);
If (M<=0) and (M>Nmax) then
WriteLn('Ошибка! Повторите!');
until (M>0) and (M<=Nmax);
WriteLn('Задайте элементы матрицы строкам через пробел ');
For i:=1 to N do
begin
Write('Строка: ');
for j:=1 to M do
Read(A[i,j]);
ReadLn;
end;
end;
procedure vivod(A:mas;N,M:byte);
{A-матрица,N,M-строка и столбец}
var
i,j:integer;{Номер очередного элемента в массиве}
begin
WriteLn('Результат: ');
for i:=1 to N do
begin
for J:=1 to M do
Write(a[i,j]:4);
WriteLn;
end;
end;
Var
NA:mas;{Исходный массив}
NN,NM:integer;{Кол-во cтрок и столбцов в матрице}
NI,NJ:integer;{Элементы строки и столбца в матрице}
begin{main}
WriteLn('Ввод матрицы: ');
Vvod(NA,NN,NM);
WriteLn('Матрица ');
Vivod(NA,NN,NM);
end.
Сообщение отредактировано: Rom1k -