Паскаль / 1 семестр / проги / Дом работы / Дом раб 2 / ZADACHA2

Uses Crt ;
Var
N : Integer;
m : Integer;
Min,Max : Integer;
A : Array [1..6,1..6] of Integer;
I, J : Integer;

Begin

ClrScr;
writeln('Domashnyaya rabota 2');
writeln('Shilak Evgenii');
writeln('Gruppa C-11');
writeln('variant 25');
writeln('V dvumernom massive naiti minimalnii sredi elementov chetnih strok i maksimalnii sredi elementov nechetnih strok');
writeln('Kolichestvo strok matrici - celoe chislo <=6 ');
Readln (N);
writeln('Kolichestvo stolbcov matrici - celoe chislo <=6 ');
Readln (m);
If (N>=1) and ( N<=6) and (m>=1)and (m<=6) then

Begin
writeln('Znacheniya elementov matrici celie chisla');

For I := 1 to N do
for j := 1 to m do
Begin
Write('A[', I, ',',J,']=');
Readln(A[I,J] );
end;
ClrScr;
writeln('Domashnyaya rabota 2');
writeln('Shilak Evgenii');
writeln('Gruppa C-11');
writeln('variant 25');
writeln('V dvumernom massive naiti minimalnii sredi elementov chetnih strok i maksimalnii sredi elementov nechetnih strok');
writeln('chislo strok', n);
writeln('chislo stolbcov', m);
writeln('Ishodnaya matrica');
For I:=1 to N do begin
for J:=1 to m do
Write(A[I,J]:4);
writeln;
end;
Writeln;
Min:=A[1,1];
Max:=A[1,1];
for i:=1 to N do for j:=1 to m do
begin
if (i mod 2 = 0) then if (A[i,j]<min) then Min:=a[i,j];
if (i mod 2 <> 0) then if (A[i,j]>max) then Max:=a[i,j];
end;
Writeln;
writeln('minimum sredi chetnih strok:', min);
writeln('maximum sredi nechetnih strok:', max);
end
else
writeln ('Oshibka vvoda');
readln;
End.