program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type t=array[1..10,1..10]of integer;
procedure vvod(var a:t;var m,n:integer);
var i,j:integer;
begin
writeln('vvedite kol-vo strok:');
readln(n);
writeln('vvedite kol-vo stolbcov:');
read(m);
writeln('vvedite elementi matrici:');
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln;
end;
end;
procedure maxmin(a:t;m,n:integer;var max,min:integer);
var i,j:integer;
begin
max:=a[1,1];
min:=a[1,2];
for i:=1 to n do
for j:=1 to m do
if ((i+j)mod 2=0)then
begin
if a[i,j]>max then max:=a[i,j]
end
else
if a[i,j]writeln('maximalniy sredi elem s chet sum indeksov:',max);
writeln('min sredi elem s nechet summoy indeksov:',min);
end;
var a:t;
m,n,max,min:integer;
begin
vvod(a,n,m);
maxmin(a,n,m,max,min);

READLN;


{ TODO -oUser -cConsole Main : Insert code here }
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.