lab4_v5 / lab4_v5

program lab4_v5;
Uses Crt;
var
m,i,j,sum:integer;
A: Array[1..100] of Array[1..100] of integer;

procedure matrixprint; // Џа®жҐ¤га  ўлў®¤  ¬ ваЁжл ­  нЄа ­
begin
for i:=1 to m do begin
for j:=1 to m do begin
write(A[i,j],' ');
end;
writeln;
end;
end;
procedure matrixgen;
begin
writeln('ѓҐ­Ґа жЁп ¬ ваЁжл [',m,',',m,']:');
for i:=1 to m do
for j:=1 to m do A[i,j]:=random(40)-20;
end;

procedure getsum; // Џ®¤бзсв б㬬л зҐв­ле бв®«Ўж®ў
begin
sum:=0;
for i:=1 to m do
for j:=1 to m do
if(j mod 2)=0 then sum:=sum+A[i,j];
writeln('‘㬬  зсв­ле бв®«Ўж®ў=',sum);
end;


function getm():integer;
var
v:integer;
begin
write('‚ўҐ¤ЁвҐ M=');
readln(v);
getm:=v;
end;

procedure abovezero;
begin
writeln('‘㬬  Ї®«®¦ЁвҐ«м­  ў®§ў®¦г н«Ґ¬Ґ­вл ­Ґзсв­ле бва®Є ў Єў ¤а в:');
for i:=1 to m do begin
for j:=1 to m do begin
if(i mod 2)<>0 then
A[i,j]:=A[i,j]*A[i,j];
end;
end;
matrixprint;
end;

procedure subzero;
begin
writeln('‘㬬  ­Ґ Ї®«®¦ЁвҐ«м­ , Є® ўбҐ¬ н«Ґ¬Ґ­в ¬ Ї®Ў®з­®© ¤Ё Ј®­ «Ё ЇаЁЎ ў«по 2');
for i:=1 to m do A[m-i+1,i]:=A[m-i+1,i]+2;
matrixprint;
end;

begin
ClrScr;
randomize;

m:=getm;
matrixgen;
matrixprint;
getsum;
if(sum>0) then abovezero else subzero;

readln;
end.