Вывести минимальный элемент, сумма индексов которых нечётная(двумерный массив) - Pascal ABC

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

Не могу чего то разобраться в массивах вовсе(.Вот набросок моей "процедурки":
program Ruslan;
Type mas = array[1..3,1..3]of integer;
var A, B:mas; RAR,RAC:integer;
 
procedure vvod(var N,M:integer; var X:mas);
var I,J:integer;
begin
write('введите количество строк и столбцов: ');
readln(M,N);
for I:=1 to M do
for J:=1 to N do
begin
write('введите элемент ',i,'',j,' ');
readln(X[I,J]);
end;
end;
procedure vivod(var N,M:integer; var X:mas);
var I, J:integer;
begin
for I:=1 to M do
begin
for J:=1 to N do
begin
write(X[i,j]:4,'');
end;
writeln();
end;
end;
 
procedure summa(var N,M:integer; var X:mas);
var I,J:integer;min:integer;
begin
if i+j mod 2<>0 then
if I < min then
I:=min;
if J < min then
J:=min; 
begin
writeln('min', min)
end;
end;
 
 
begin
vvod(RAC,RAR,A);
vivod(RAC,RAR,A);
summa(RAC,RAR,B);
end.

Код к задаче: «Вывести минимальный элемент, сумма индексов которых нечётная(двумерный массив) - Pascal ABC»

textual
Type mas = array[1..20,1..20]of integer;
procedure vvod(var m,n:integer; var x:mas);
var i,j:integer;
begin
write('введите количество строк и столбцов: ');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
 begin
  write('введите элемент [',i,',',j,']=');
  readln(x[i,j]);
 end;
end;
procedure vivod(m,n:integer; x:mas);
var i,j:integer;
begin
for i:=1 to m do
  begin
   for j:=1 to n do
   write(x[i,j]:4);
   writeln;
  end;
end;
 
procedure min(m,n:integer;x:mas);
var i,j,mn:integer;
begin
mn:=x[1,2];//первый с нечетной сумммой индексов
for i:=1 to m do
for j:=1 to n do
if ((i+j) mod 2<>0)and(x[i,j]<mn) then mn:=x[i,j];
writeln('min=', mn)
end;
 
var a:mas;
    m,n:integer;
begin
vvod(m,n,a);
vivod(m,n,a);
min(m,n,a);
end.

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы