все задачи 4.26
.docprogram Proga4_2_6__1;
{$APPTYPE CONSOLE}
type matr=array[1..5,1..4] of integer;
mass=array[1..5] of Integer;
var y,k,i,j:integer;
A:matr;
M:mass;
procedure P(A:matr; k:Integer; var v:integer);
begin
v:=a[k,1];
for i:=2 to 4 do
if a[k,i]>v then v:=a[k,i];
end;
begin
j:=1;
repeat
i:=1;
repeat
write('a[',j,',',i,']=');
readln(a[j,i]);
i:=i+1;
until i>4;
j:=j+1;
until j>5;
for k:=1 to 5 do P(A,k,m[k]);
y:=2*m[1]*m[5]+2*m[2]*m[4]+m[3]*m[3];
write('Y=',Y);
Readln;
end.
program Proga4_2_6__2;
{$APPTYPE CONSOLE}
type matr=array[1..5,1..4] of integer;
mass=array[1..5] of Integer;
var y,k,i,j:integer;
B:matr;
M:mass;
procedure P(A:matr; k:Integer; var v:integer);
begin
v:=a[k,1];
for i:=2 to 4 do
if a[k,i]<v then v:=a[k,i];
end;
begin
j:=1;
repeat
i:=1;
repeat
write('b[',j,',',i,']=');
readln(b[j,i]);
i:=i+1;
until i>4;
j:=j+1;
until j>5;
for k:=1 to 5 do P(B,k,m[k]);
y:=5*m[1]+4*m[2]+3*m[3]+2*m[2]+m[1];
write('Y=',Y);
Readln;
end.
program Proga4_2_6__3;
{$APPTYPE CONSOLE}
type matr=array[1..5,1..4] of integer;
mass=array[1..5] of real;
var y:Real;
k,i,j:integer;
B:matr;
C:mass;
procedure P(A:matr; k:Integer; var v:real);
var kol:Integer;
begin
for i:=2 to 4 do
if a[k,i]>a[k,1] then
begin
v:=v+a[k,i];
kol:=kol+1;
end;
if kol>0 then v:=v/kol;
end;
begin
j:=1;
repeat
i:=1;
repeat
write('b[',j,',',i,']=');
readln(b[j,i]);
i:=i+1;
until i>4;
j:=j+1;
until j>5;
for k:=1 to 5 do P(B,k,c[k]);
y:=(c[1]-1)*(c[1]-1)*(c[1]-1)*(c[1]-1)*(c[1]-1)+(c[2]-1)*(c[2]-1)*(c[2]-1)*(c[2]-1)+(c[3]-1)*(c[3]-1)*(c[3]-1)+(c[4]-1)*(c[4]-1)+(c[5]-1);
write('Y=',Y);
Readln;
end.
program Proga4_2_6__4;
{$APPTYPE CONSOLE}
type matr=array[1..4,1..5] of integer;
mass=array[1..5] of real;
var y:Real;
k,i,j:integer;
A:matr;
P:mass;
procedure Pro(A:matr; k:Integer; var v:real);
var f:Integer;
begin
v:=1;
f:=0;
for i:=1 to 4 do
if a[i,k]<0 then
begin
v:=v*a[i,k];
f:=1;
end;
if f=0 then v:=0;
write (v);
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>5;
i:=i+1;
until i>4;
for k:=1 to 5 do Pro(A,k,p[k]);
y:=(1-p[5])*(1-p[5])+(2-p[4])*(2-p[4])+(3-p[3])*(3-p[3])+(4-p[2])*(4-p[2])+(5-p[1])*(5-p[1]);
write('Y=',Y:2:0);
Readln;
end.
program Proga4_2_6__5;
{$APPTYPE CONSOLE}
const m=4;
type matr=array[1..m,1..m] of integer;
var z,c,i,j,h:integer;
B:matr;
k:array[1..m] of integer;
procedure P(A:matr;n:integer);
begin
i:=1;
repeat
k[i]:=0;
i:=i+1;
until i>n;
i:=1;
repeat
j:=1;
repeat
if a[i,j]=0 then k[i]:=i;
j:=j+1;
until j>n;
i:=i+1;
until i>n;
end;
begin
z:=1;
repeat
c:=1;
repeat
write('b[',z,',',c,']=');
readln(b[z,c]);
c:=c+1;
until c>m;
z:=z+1;
until z>m;
P(B,m);
i:=1;
h:=0;
repeat
writeln(' ');
if k[i]<>0 then
begin
c:=1;
h:=1;
repeat
writeln(b[i,c]);
c:=c+1;
until c>m;
end;
i:=i+1;
until i>m;
if h=0 then write('net stolbcov s nuljami');
readln;
end.
program alex6;
{$APPTYPE CONSOLE}
type mas=array[1..4,1..5]of integer;
var a:mas;
i,j,h,m:integer;
procedure proc(x:mas;k:integer;var l:integer);
var i:integer;
begin
l:=0;
for i:=1 to 4 do
if x[k,i]=0 then l:=l+1;
end;
begin
h:=0;
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 4 do
begin
proc(a,i,m);
if m>0 then begin
h:=h+1;
for j:=1 to 5 do
write(a[i,j],' ');
end;
end;
if h=0 then writeln('net stroki s nulami');
readln;
readln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
program alex7;
{$APPTYPE CONSOLE}
type mas=array[1..5,1..4]of integer;
var a:mas;
i,j,x,y:integer;
procedure raz(b:mas;n,m:Integer;var d:integer);
var i,j:integer;
begin
d:=0;
for j:=n to m do
for i:=1 to 5 do
if b[i,j]=0 then d:=d+1;
end;
begin
for i:=1 to 5 do
for j:=1 to 4 do
read(a[i,j]);
raz(a,1,2,x);
raz(a,3,4,y);
if x>y then Writeln('v levoi bolshe')
else if x<y then Writeln('v pravoi bolshe')
else Writeln('odinakovo');
readln;
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
program alex8;
{$APPTYPE CONSOLE}
type mas=array[1..4,1..5]of integer;
var a:mas;
i,j,x,y:integer;
procedure raz(b:mas;n,m:Integer;var d:integer);
var i,j:integer;
begin
d:=0;
for i:=n to m do
for j:=1 to 5 do
if b[i,j]=0 then d:=d+1;
end;
begin
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);
raz(a,1,2,x);
raz(a,3,4,y);
if x>y then Writeln('v verhnei bolshe')
else if x<y then Writeln('v niznei bolshe')
else Writeln('odinakovo');
readln;
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
program Proga4_2_6_9;
{$APPTYPE CONSOLE}
const n=3;
m=6;
type matr=array [1..n,1..m] of Integer;
var i,j,kolA,kolB:Integer;
A,B:matr;
procedure sos(A:matr;n,m:Integer;var kol:Integer);
begin
i:=1;
repeat
j:=1;
repeat
if A[i,j]=0 then kol:=kol+1;
j:=j+1;
until j>m;
i:=i+1;
until i>n;
end;
begin
for i:=1 to 3 do
for j:=1 to 6 do
begin
write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write ('B[',i,',',j,']=');
Readln(B[i,j]);
end;
sos(A,3,6,kolA);
sos(B,3,3,kolB);
if(kolA=kolB) then write('odinakovo')
else
if (kolA>kolB) then write('bolshe v A')
else write('bolshe v B');
Readln;
end.
program Proga4_2_6_10;
{$APPTYPE CONSOLE}
const n=4;
m=3;
type matr=array [1..n,1..m] of Integer;
var A:matr;
b,i,j,v1,v3:Integer;
procedure zamena(A:matr;k:Integer;var u:Integer);
var v:Integer;
begin
i:=1;
v:=A[1,k];
u:=1;
repeat
if A[i,k]>v then
begin
V:=a[i,k];
u:=i;
end;
i:=i+1;
until i>n;
end;
begin
for i:=1 to n do
for j:=1 to m do
begin
write ('A[',i,',',j,']=');
Readln(A[i,j]);
end;
zamena(A,1,v1);
zamena(A,3,v3);
b:=a[v1,1];
a[v1,1]:=a[v3,3];
a[v3,3]:=b;
for i:=1 to 4 do
begin
Readln;
for j:=1 to 3 do write(a[i,j],' ');
end;
Readln;
end.
program Project11;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..3,1..5] of Integer;
var a:mas;
i,j,l1,l2,d1,d2,s:Integer;
procedure p(x:mas; e:Integer; var n,k:integer);
var j,min:Integer;
begin
min:=x[e,1];
n:=e;
k:=1;
for j:=2 to 5 do
if x[e,j]<min then
begin
min:=x[e,j];
k:=j;
end;
end;
begin
for i:=1 to 3 do
for j:=1 to 5 do
read(a[i,j]);
p(a,2,l1,d1);
p(a,3,l2,d2);
s:=a[l1,d1];
a[l1,d1]:=a[l2,d2];
a[l2,d2]:=s;
Writeln;
for i:=1 to 3 do begin
for j:=1 to 5 do begin
write(a[i,j],' ');
end; writeln; end;
Readln;
Readln;
end.
program Proga4_2_6__12;
{$APPTYPE CONSOLE}
type matr=array[1..4,1..5] of integer;
var W,i,j,ll,kk,l2,k2:integer;
A:matr;
procedure P(A:matr;l1,l2:Integer; var l,k:integer);
var v:Integer;
begin
v:=a[l1,1];
k:=l1;
l:=1;
for j:=1 to 5 do
for i:=l1 to l2 do
if a[i,j]>v then
begin
v:=a[i,j];
k:=i;
l:=j;
end;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>5;
i:=i+1;
until i>4;
P(A,1,2,ll,kk);
P(A,3,4,l2,k2);
W:=a[kk,ll];
a[kk,ll]:=a[k2,l2];
a[k2,l2]:=W;
for i:=1 to 3 do
begin
Readln;
for j:=1 to 4 do
write(a[i,j],' ');
end;
Readln;
end.
program Proga4_2_6__13;
{$APPTYPE CONSOLE}
type matr=array[1..3,1..4] of integer;
var W,i,j,ll,kk,l2,k2:integer;
A:matr;
procedure P(A:matr;l1,l2:Integer; var l,k:integer);
var amin:Integer;
begin
amin:=a[1,l1];
k:=1;
l:=l1;
for i:=1 to 3 do
for j:=l1 to l2 do
if a[i,j]<amin then
begin
amin:=a[i,j];
k:=i;
l:=j;
end;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>4;
i:=i+1;
until i>3;
P(A,1,2,ll,kk);
P(A,3,4,l2,k2);
W:=a[kk,ll];
a[kk,ll]:=a[k2,l2];
a[k2,l2]:=W;
for i:=1 to 3 do
begin
Readln;
for j:=1 to 4 do
write(a[i,j],' ');
end;
Readln;
end.
program Proga4_2_6__14;
{$APPTYPE CONSOLE}
const m=3;
n=4 ;
type matr=array[1..m,1..n] of integer;
var W,i,j,ll,kk,l2,k2:integer;
A:matr;
B:matr;
procedure P(C:matr; m,n:Integer; var k,l:integer);
var max:Integer;
begin
max:=c[1,1];
k:=1;
l:=1;
for i:=1 to m do
for j:=1 to n do
if c[i,j]>max then
begin
max:=c[i,j];
k:=i;
l:=j;
end;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>3;
i:=i+1;
until i>3;
i:=1;
repeat
j:=1;
repeat
write('b[',i,',',j,']=');
readln(b[i,j]);
j:=j+1;
until j>4;
i:=i+1;
until i>3;
P(A,3,3,kk,ll);
P(B,3,4,k2,l2);
W:=a[kk,ll];
a[kk,ll]:=b[k2,l2];
b[k2,l2]:=W;
for i:=1 to 3 do
begin
Readln;
for j:=1 to 3 do
write(a[i,j],' ');
end;
writeln;
for i:=1 to 3 do
begin
Readln;
for j:=1 to 4 do
write(b[i,j],' ');
end;
Readln;
end.
program Proga4_2_6__15;
{$APPTYPE CONSOLE}
const n=4 ;
type matr=array[1..n,1..n] of integer;
var W,i,j,kk,k2:integer;
A:matr;
B:matr;
procedure P(C:matr;n:Integer; var k:integer);
var min:Integer;
begin
min:=c[1,1];
k:=1;
for i:=1 to n do
if min>c[i,i] then
begin
min:=c[i,j];
k:=i;
end;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>3;
i:=i+1;
until i>3;
i:=1;
repeat
j:=1;
repeat
write('b[',i,',',j,']=');
readln(b[i,j]);
j:=j+1;
until j>4;
i:=i+1;
until i>4;
P(A,3,kk);
P(B,4,k2);
W:=a[kk,kk];
a[kk,kk]:=b[k2,k2];
b[k2,k2]:=W;
for i:=1 to 3 do
begin
Readln;
for j:=1 to 3 do
write(a[i,j],' ');
end;
writeln;
for i:=1 to 4 do
begin
Readln;
for j:=1 to 4 do
write(b[i,j],' ');
end;
Readln;
end.
program Proga4_2_6__16;
{$APPTYPE CONSOLE}
const n=5 ;
m=5;
type matr=array[1..n,1..m] of integer;
var W,i,j,kk,k2:integer;
A:matr;
B:matr;
procedure P(var C:matr;k,l,n,m:Integer);
var W:Integer;
begin
for i:=1 to m do
begin
W:=c[k,i];
c[k,i]:=c[l,i];
c[l,i]:=W;
end;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>4;
i:=i+1;
until i>3;
i:=1;
repeat
j:=1;
repeat
write('b[',i,',',j,']=');
readln(b[i,j]);
j:=j+1;
until j>5;
i:=i+1;
until i>5;
P(A,2,3,3,4);
P(B,2,4,5,5);
for i:=1 to 3 do
begin
Readln;
for j:=1 to 4 do
write(a[i,j],' ');
end;
writeln;
for i:=1 to 5 do
begin
Readln;
for j:=1 to 5 do
write(b[i,j],' ');
end;
Readln;
end.
program Proga4_2_6__17;
{$APPTYPE CONSOLE}
const n=5 ;
m=4;
type matr=array[1..n,1..m] of integer;
var W,i,j,kk,k2:integer;
A:matr;
B:matr;
procedure P(var C:matr;k,l,n,m:Integer);
var W:Integer;
begin
for i:=1 to n do
begin
W:=c[i,k];
c[i,k]:=c[i,l];
c[i,l]:=W;
end;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>4;
i:=i+1;
until i>5;
i:=1;
repeat
j:=1;
repeat
write('b[',i,',',j,']=');
readln(b[i,j]);
j:=j+1;
until j>3;
i:=i+1;
until i>4;
P(A,2,4,5,4);
P(B,2,3,4,3);
for i:=1 to 5 do
begin
Readln;
for j:=1 to 4 do
write(a[i,j],' ');
end;
writeln;
for i:=1 to 4 do
begin
Readln;
for j:=1 to 3 do
write(b[i,j],' ');
end;
Readln;
end.
program Project18;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..4,1..5] of Integer;
mass=array[1..5] of real;
var a:mas;
b:mass;
i,j:Integer;
procedure p(x:mas; e:Integer; var y:real);
var i,min,max:Integer;
begin
min:=x[1,e];
max:=x[1,e];
for i:=2 to 4 do
begin
if x[i,e]<min then
min:=x[i,e];
if x[i,e]>max then
max:=x[i,e];
end;
y:=(min+max)/2;
end;
begin
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
begin
p(a,i,b[i]);
write(b[i]:5:2,' ');
end;
Readln;
Readln;
end.
program Project19;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..4,1..4 ] of Integer;
mass=array[1..4] of integer;
var a:mas;
b:mass;
i,j:Integer;
procedure p(x:mas; e:Integer; var y:integer);
var j,min:Integer;
begin
min:=x[e,1];
for j:=2 to 4 do
if x[e,j]<min then min:=x[e,j];
y:=Abs(x[e,e]-min);
end;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
begin
p(a,i,b[i]);
write(b[i],' ');
end;
Readln;
Readln;
end.
program Proga4_2_6__20;
{$APPTYPE CONSOLE}
const n=3;
m=4;
type matr=array [1..n,1..m] of Integer;
mass=array[1..m] of real;
var A:matr;
B:matr;
CC:mass;
na,nb,i,j:Integer;
procedure P(C:matr;CC:mass;n,m:Integer;var k:Integer);
var min:Real;
begin
for j:=1 to m do
begin
for i:=1 to n do
CC[j]:=cc[j]+c[i,j];
CC[j]:=cc[j]/n;
end;
min:=cc[1];
k:=1;
for i:=2 to m do
if min>CC[i] then
begin
min:=cc[i];
k:=i;
end;
end;
begin
for i:=1 to 2 do
for j:=1 to 4 do
begin
write ('a[',i,',',j,']=');
Readln(a[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write ('b[',i,',',j,']=');
Readln(b[i,j]);
end;
p(A,CC,2,4,na);
p(B,CC,3,3,nb);
write('na=',na,' ');
write('nb=',nb);
Readln;
end.
program Project21;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..4,1..5] of Integer;
mass=array[1..5] of integer;
var a:mas;
b:mass;
i,j:Integer;
procedure p(x:mas; e:Integer; var y:integer);
var i,k:Integer;
begin
k:=0;
for i:=2 to 4 do
if x[i,e]<x[i-1,e] then k:=k+1;
if k=0 then y:=1
else y:=0;
end;
begin
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);
writeln;
for i:=1 to 5 do
begin
p(a,i,b[i]);
write(b[i],' ');
end;
Readln;
Readln;
end.
program Project22;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..4,1..4] of Integer;
mass=array[1..4] of integer;
var a:mas;
b:mass;
i,j:Integer;
procedure p(x:mas; e:Integer; var y:integer);
var i,j,k:Integer;
begin
k:=0;
for i:=1 to 4 do
if x[i,e]=0 then k:=k+1;
if k=0 then y:=1
else y:=0;
end;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
begin
p(a,i,b[i]);
write(b[i],' ');
end;
Readln;
Readln;
end.
program Project23;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..4,1..4] of Integer;
mass=array[1..4] of integer;
var a:mas;
b:mass;
i,j:Integer;
procedure p(x:mas; e:Integer; var y:integer);
var i,max:Integer;
begin
max:=x[1,e];
y:=1;
for i:=2 to 4 do
if x[i,e]>max then begin
max:=x[i,e];
y:=i;
end;
end;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
Writeln;
for i:=1 to 4 do
begin
p(a,i,b[i]);
write(b[i],' ');
end;
Readln;
Readln;
end.
program Proga4_2_6__24;
{$APPTYPE CONSOLE}
const n=5;
m=4;
type matr=array [1..n,1..m] of Integer;
mass=array[1..m] of real;
var A:matr;
CC:mass;
min:Real;
k,nomer,i,j:Integer;
procedure P(C:matr;n,k:Integer;var v:real);
var h:integer;
begin
h:=0;
for i:=1 to n do
if c[i,k]<0 then
begin
v:=v+a[i,k];
Inc(h);
end;
end;
begin
for i:=1 to 5 do
for j:=1 to 4 do
begin
write ('a[',i,',',j,']=');
Readln(a[i,j]);
end;
for k:=1 to m do p(A,5,k,CC[k]);
min:=cc[1];
nomer:=1;
for i:=2 to m do
if min>CC[i] then
begin
min:=cc[i];
nomer:=i;
end;
write('nomer=',nomer);
Readln;
end.
program Proga4_2_6__25;
{$APPTYPE CONSOLE}
const n=5;
m=4;
type matr=array [1..n,1..m] of Integer;
mass=array[1..m] of integer;
var A:matr;
B:matr;
sum:mass;
na,nb,i,j:Integer;
procedure P(C:matr;sum:mass;n,m:Integer;var k:Integer);
var max:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
if c[i,j]>0 then
sum[i]:=sum[i]+c[i,j];
end;
max:=sum[1];
k:=1;
for i:=2 to n do
if max<sum[i] then
begin
max:=sum[i];
k:=i;
end;
end;
begin
for i:=1 to 3 do
for j:=1 to 4 do
begin
write ('a[',i,',',j,']=');
Readln(a[i,j]);
end;
for i:=1 to 5 do
for j:=1 to 3 do
begin
write ('b[',i,',',j,']=');
Readln(b[i,j]);
end;
p(A,sum,3,4,na);
p(B,sum,5,3,nb);
write('na=',na,' ');
write('nb=',nb);
Readln;
end.
program Project26;
{$APPTYPE CONSOLE}
{ TODO -oUser -cConsole Main : Insert code here }
type mas=array[1..5,1..5] of Integer;
mass=array[1..5]of integer;
var a:mas;
b:mass;
i,j:Integer;
procedure p(x:mas; e:Integer; var y:integer);
var i,j,k:Integer;
begin
k:=0;
for j:=1 to 5 do
if x[e,j]>x[e,e] then k:=k+1;
if k>0 then y:=1
else y:=0;
end;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
writeln;
for i:=1 to 5 do
begin
p(a,i,b[i]);
write(b[i],' ');
end;
Readln;
Readln;
end.
program 4_2_6__27;
uses crt;
type matr=array [1..5,1..5] of real;
mas=array [1..5] of real;
var a:matr;
i,k:byte;
b:mas;
procedure raschet(d:matr;var c:mas);
var i,k:byte;
s:mas;
begin
for k:=1 to 5 do begin
for i:=1 to 5 do
if d[i,k]<=d[i,i] then s[i]:=s[i]+1;
end;
for i:=1 to 5 do
if s[i]=5 then c[i]:=1 else c[i]:=0;
end;
begin clrscr;
for i:=1 to 5 do begin
for k:=1 to 5 do
readln(a[i,k]);
end;
raschet(a,b);
for i:=1 to 5 do begin
for k:=1 to 5 do
write(a[i,k]:3:2,' ');
writeln;
writeln;
end;
writeln;
for i:=1 to 5 do
write(b[i]:3:1,' ');
writeln;
readkey;
end.
program Proga4_2_6__28;
{$APPTYPE CONSOLE}
type matr=array[1..4,1..5] of integer;
var i,j,kv,kn:integer;
cv,cn:real;
A:matr;
procedure P(A:matr;l1,l2:Integer; var k:integer;var c:Real);
var k1:Integer;
begin
k:=0;
k1:=0;
for j:=1 to 5 do
for i:=l1 to l2 do
if a[i,j]>0 then inc(k)
else
begin
c:=c+a[i,j];
Inc(k1);
end;
if k1<>0 then c:=c/k1;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>5;
i:=i+1;
until i>4;
P(A,1,2,kv,cv);
P(A,3,4,kn,cn);
write('kv=',kv,' ','cv=',cv:5:2,' ','kn=',kn,' ','cn=',cn:5:2);
Readln;
end.
program 4_2_6_29;
uses crt;
type matr=array [1..3,1..4] of real;
mas=array [1..5] of real;
var a:matr;
i,k:byte;
l1,l2,m,n:byte;
sr1,sr2:real;
procedure raschet(d:matr;l1,l2:byte;var m:byte;var sr:real);
var i,k,o:byte;
s:real;
begin m:=0;
sr:=0;
for i:=1 to 3 do begin
for k:=l1 to l2 do
if d[i,k]=0 then m:=m+1
else begin o:=o+1;
s:=s+d[i,k];
end;
end;
sr:=s/o;
end;
begin clrscr;
for i:=1 to 3 do begin
for k:=1 to 4 do begin
writeln('a[',i,',',k,']=');
readln(a[i,k]);
end;
end;
raschet(a,1,2,m,sr1);
raschet(a,3,4,n,sr2);
if sr1>sr2 then writeln('menshe sprava');
if sr1=sr2 then writeln('odinakovo');
if sr1<sr2 then writeln('menshe sleva');
readkey;
end.
program Proga4_2_6__30;
{$APPTYPE CONSOLE}
const n=3 ;
m=4 ;
type matr=array[1..n,1..m] of integer;
var i,j,ka,kb:integer;
ca,cb:real;
A:matr;
B:matr;
procedure P(A:matr;n,m:integer; var k:integer;var c:Real);
var k1:Integer;
begin
k:=0;
k1:=0;
for j:=1 to m do
for i:=1 to n do
if a[i,j]<0 then inc(k)
else
begin
c:=c+a[i,j];
Inc(k1);
end;
if k1<>0 then c:=c/k1;
end;
begin
i:=1;
repeat
j:=1;
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
j:=j+1;
until j>4;
i:=i+1;
until i>2;
i:=1;
repeat
j:=1;
repeat
write('b[',i,',',j,']=');
readln(b[i,j]);
j:=j+1;
until j>3;
i:=i+1;
until i>3;
P(A,2,4,ka,ca);
P(B,3,3,kb,cb);
if ca>cb then write('bolshe v A ')
else if ca<cb then write('bolshe v B ')
else write('odinakovo ');
write('ka=',ka,' ','kb=',kb);
Readln;
end.