на экзамен задачи

1. 1. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

V,x,xn,xk,dx,y:real;

begin

Readln(xn,xk,dx,y);

X:=xn;

repeat

if x<y then V:=x+cos(exp(sqr(Pi)))

else if x=y then V:=x-arctan(y)-x*y

else V:=abs(ln(abs(x))-1);

Writeln(X:5:2,V:5:2);

x:=x+dx;

until x>xk;

end.

2. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

E,x,xn,xk,dx,a:real;

begin

Readln(xn,xk,dx,a);

X:=xn;

repeat

if a<x then E:=5*exp(2)+1/sin(x)

else if a=x then E:=exp(1)*ln(10)/ln(x)

else E:=exp((1-exp(1)+cos(x))*ln(abs(a)));

Writeln(X:5:2,E:5:2);

x:=x+dx;

until x>xk;

end.

3. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

U,x,xn,xk,dx,a,b:real;

begin

Readln(xn,xk,dx,a,b);

X:=xn;

repeat

if a<b then U:=ln(sin(abs(x)))/ln(10)

else if a=b then U:=sqr(x)-sqrt(x)

else U:=ln(cos(abs(exp(a*ln(x)))));

Writeln(X:5:2,U:5:2);

x:=x+dx;

until x>xk;

end.

4. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

W,x,xn,xk,dx,a,b,c:real;

begin

Readln(xn,xk,dx,a,b,c);

X:=xn;

repeat

if a<b then W:=exp(ln(arctan(x))/C)

else if a=b then W:=ln(c*x)/ln(10)

else W:=c+exp(3*ln(pi))*sin(x);

Writeln(X:10:2,W:10:2);

x:=x+dx;

until x>xk;

end.

5. Вычислить ,

где a меняется от a_н до a_к с шагом a.

var

T,a,an,ak,da,b,g,x,H:real;

begin

Readln(a,an,ak,da,b,g,x,H);

A:=an;

repeat

if a<b then T:=2*g*x*sqr(ln(H)/ln(10))

else if a=b then T:=cos(H)

else T:=sqrt(2*g*H)*exp(3*ln(ln(H)));

Writeln(a:10:2,T:10:2);

a:=a+da;

until a>ak;

end.

6. Вычислить ,

где a меняется от a_н до a_к с шагом a.

var

F,a,an,ak,da,b,m,x:real;

begin

Readln(an,ak,da,b,m);

A:=an;

repeat

if a>m then F:=a*sin(sqr(x))/cos(sqr(x))+b*exp(3*ln(m))

else if a=b then F:=a*exp(m)

else F:=a*exp(3*ln(m))-b*sin(sqr(m));

Writeln(a:10:2,F:10:2);

a:=a+da;

until a>ak;

end.

7. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

B,x,xn,xk,dx,n,m,y:real;

begin

Readln(xn,xk,dx,n,m,y);

X:=xn;

repeat

if x>y then B:=1/n*cos(exp(m*ln(n)))

else if x=y then B:=m+ln(n)/ln(10)

else B:=1/x*exp(n*ln(sin(m)));

Writeln(x:10:2,B:10:2);

x:=x+dx;

until x>xk;

end.

8. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

Z,x,xn,xk,dx,c,a,b,d:real;

begin

Readln(xn,xk,dx,c,a,b,d);

X:=xn;

repeat

if c>d then Z:=d*x*sin(c)

else if c=d then Z:=1.75*ln(a)/(ln(b)/ln(10))

else Z:=cos(sqr(a*b));

Writeln(x:10:2,Z:10:2);

x:=x+dx;

until x>xk;

end.

9. Вычислить ,

где x меняется от x_н до x_к с шагом x.

var

Z,x,xn,xk,dx,a:real;

begin

Readln(xn,xk,dx,a);

x:=xn;

repeat

if a>x then Z:=pi*exp(3*ln(x))-abs(x*pi)

else if a=x then Z:=sin(1)/cos(1)

else Z:=sin(sqrt(1+sqrt(x)));

Writeln(x:10:2,Z:10:2);

x:=x+dx;

until x>xk;

end.

10. Вычислить ,

где a меняется от a_н до a_к с шагом a.

var

S,a,an,ak,da,H,R,n,b:real;

begin

Readln(an,ak,da,H,R,n,b);

A:=an;

repeat

if a>b then S:=2*n*sqr(R)+exp(5*ln(sin(H)/cos(H)))

else if a=b then S:=exp(ln(sqr(R))/ln(10))

else S:=2*pi*R+sin(H);

Writeln(a:10:2,S:10:2);

a:=a+da;

until a>ak;

end.

11. В одномерном массиве A из n элементов найти сумму всех элементов и заменить положительные элементы на 10.

var

A:array[1..20] of integer;

S,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

S:=0;

for i:=1 to n do

S:=S+a[i];

Writeln('S=',S);

for i:=1 to n do

if a[i]>0 then

a[i]:=10;

for i:=1 to n do

writeln(A[i]);

end.

12. В одномерном массиве A из n элементов найти произведение всех элементов и заменить отрицательные элементы на 20.

var

A:array[1..20] of integer;

P,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

P:=1;

for i:=1 to n do

P:=P*a[i];

Writeln('P=',P);

for i:=1 to n do

if a[i]<0 then

a[i]:=20;

for i:=1 to n do

writeln(A[i]);

end.

13. В одномерном массиве A из n элементов найти максимальный среди всех элементов и заменить нулевые элементы на 30.

var

A:array[1..20] of integer;

max,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

max:=a[1];

for i:=2 to n do

if a[i]>max then

max:=a[i];

Writeln('max=',max);

for i:=1 to n do

if a[i]=0 then

a[i]:=30;

for i:=1 to n do

writeln(A[i]);

end.

14. В одномерном массиве A из n элементов найти минимальный среди всех элементов и заменить ненулевые элементы на 40.

var

A:array[1..20] of integer;

min,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

min:=a[1];

for i:=2 to n do

if a[i]<min then

min:=a[i];

Writeln('min=',min);

for i:=1 to n do

if a[i]<>0 then

a[i]:=40;

for i:=1 to n do

writeln(A[i]);

end.

15. В одномерном массиве A из n элементов найти среднее значение среди всех элементов и вывести индексы нулевых элементов.

var

A:array[1..20] of integer;

S,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

S:=0;

for i:=1 to n do

S:=S+a[i];

Writeln('Sr=',S/n);

for i:=1 to n do

if a[i]=0 then

Writeln(i);

end.

16. В одномерном массиве A из n элементов найти сумму положительных элементов, а также переставить местами третий и предпоследний элементы.

var

A:array[1..20] of integer;

S,n,i,e:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

S:=0;

for i:=1 to n do

if A[i]>0 then

S:=S+a[i];

Writeln('S=',S);

e:=a[3];

a[3]:=a[n-1];

a[n-1]:=a[3];

for i:=1 to n do

writeln(A[i]);

end.

17. В одномерном массиве A из n элементов найти количество положительных элементов и индекс минимального элемента.

var

A:array[1..20] of integer;

K,mini,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

K:=0;

for i:=1 to n do

if A[i]>0 then

K:=K+1;

Writeln('K=',K);

mini:=1;

for i:=1 to n do

if a[i]<a[mini] then

mini:=i;

Writeln('imin=',mini)

end.

18. В одномерном массиве A из n элементов найти произведение положительных элементов и индекс максимального элемента.

var

A:array[1..20] of integer;

P,maxi,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Read(A[i]);

P:=1;

for i:=1 to n do

if A[i]>0 then

P:=P*a[i];

Writeln('P=',P);

maxi:=1;

for i:=1 to n do

if a[i]>a[maxi] then

maxi:=i;

Writeln('i max=',maxi)

end.

19. В одномерном массиве A из n элементов найти максимальный среди положительных элементов и сформировать массив B делением элементов массива A на 80.

var

A:array[1..20] of integer;

B:array[1..20] of real;

max,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

max:=-maxint;

for i:=1 to n do

if (A[i]>0) and (A[i]>max) then

max:=A[i];

Writeln('max p=',max);

for i:=1 to n do

B[i]:=A[i]/80;

for i:=1 to n do

writeln(B[i]:0:2)

end.

20. В одномерном массиве A из n элементов найти минимальный среди положительных элементов и сформировать массив B умножением элементов массива A на 70.

var

A,B:array[1..20] of integer;

min,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

min:=maxint;

for i:=1 to n do

if (A[i]>0) and (A[i]<min) then

min:=A[i];

Writeln('min p=',min);

for i:=1 to n do

B[i]:=A[i]*70;

for i:=1 to n do

writeln(B[i])

end.

21. В одномерном массиве A из n элементов найти среднее значение среди положительных элементов и сформировать массив B уменьшением элементов массива A на 60.

var

A,B:array[1..20] of integer;

Sp,np,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

sp:=0;

np:=0;

for i:=1 to n do

if A[i]>0 then

begin

sp:=sp+a[i];

np:=np+1

end;

Writeln('sr p=',sp/np:0:2);

for i:=1 to n do

B[i]:=A[i]-60;

for i:=1 to n do

writeln(B[i])

end.

22. В одномерном массиве A из n элементов найти сумму отрицательных элементов и сформировать массив B увеличением элементов массива A на 50.

var

A,B:array[1..20] of integer;

S,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

s:=0;

for i:=1 to n do

if A[i]<0 then

s:=s+a[i];

Writeln('s otr=',s);

for i:=1 to n do

B[i]:=A[i]+50;

for i:=1 to n do

writeln(B[i])

end.

23. В одномерном массиве A из n элементов найти количество отрицательных элементов и разделить отрицательные элементы на 10.

var

A:array[1..20] of real;

K,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

K:=0;

for i:=1 to n do

if A[i]<0 then

K:=K+1;

Writeln('k otr=',K);

for i:=1 to n do

if a[i]<0 then

A[i]:=A[i]/10;

for i:=1 to n do

writeln(A[i]:0:2)

end.

24. В одномерном массиве A из n элементов найти произведение отрицательных элементов и умножить отрицательные элементы на 20.

var

A:array[1..20] of integer;

P,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

P:=1;

for i:=1 to n do

if A[i]<0 then

P:=P*a[i];

Writeln('P otr=',P);

for i:=1 to n do

if a[i]<0 then

A[i]:=A[i]*20;

for i:=1 to n do

writeln(A[i])

end.

25. В одномерном массиве A из n элементов найти максимальный среди отрицательных элементов и уменьшить отрицательные элементы на 30.

var

A:array[1..20] of integer;

max,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

max:=-maxint;

for i:=1 to n do

if (A[i]<0) and (a[i]>max) then

max:=a[i];

Writeln('max otr=',max);

for i:=1 to n do

if a[i]<0 then

A[i]:=A[i]-30;

for i:=1 to n do

writeln(A[i])

end.

26. В одномерном массиве A из n элементов найти минимальный среди отрицательных элементов и увеличить отрицательные элементы на 40.

var

A:array[1..20] of integer;

min,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

min:=0;

for i:=1 to n do

if (A[i]<0) and (a[i]<min) then

min:=a[i];

Writeln('min otr=',min);

for i:=1 to n do

if a[i]<0 then

A[i]:=A[i]+40;

for i:=1 to n do

writeln(A[i])

end.

27. В одномерном массиве A из n элементов найти среднее значение среди отрицательных элементов и разделить положительные элементы на 40.

var

A:array[1..20] of real;

K,n,i:integer;

S:real;

begin

Readln(n);

for i:=1 to n do

Read(A[i]);

K:=0;

S:=0;

for i:=1 to n do

if A[i]<0 then

begin

K:=K+1;

S:=S+A[i]

end;

Writeln('SR otr=',s/k:0:2);

for i:=1 to n do

if a[i]>0 then

A[i]:=A[i]/40;

for i:=1 to n do

writeln(A[i]:0:2)

end.

28. В одномерном массиве A из n элементов найти количество нулевых элементов и умножить положительные элементы на 30.

var

A:array[1..20] of real;

K,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

K:=0;

for i:=1 to n do

if A[i]=0 then

K:=K+1;

Writeln('kol 0=',K);

for i:=1 to n do

if a[i]>0 then

A[i]:=A[i]*30;

for i:=1 to n do

writeln(A[i])

end.

29. В одномерном массиве A из n элементов найти количество ненулевых элементов и уменьшить положительные элементы на 20.

var

A:array[1..20] of integer;

K,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

K:=0;

for i:=1 to n do

if A[i]<>0 then

K:=K+1;

Writeln('kol ne 0=',K);

for i:=1 to n do

if a[i]>0 then

A[i]:=A[i]-20;

for i:=1 to n do

writeln(A[i])

end.

30. В одномерном массиве A из n элементов найти произведение ненулевых элементов и увеличить положительные элементы на 10.

var

A:array[1..20] of integer;

P,n,i:integer;

begin

Readln(n);

for i:=1 to n do

Readln(A[i]);

P:=1;

for i:=1 to n do

if A[i]<>0 then

P:=P+1;

Writeln('Pr ne 0=',P);

for i:=1 to n do

if a[i]>0 then

A[i]:=A[i]+10;

for i:=1 to n do

writeln(A[i])

end.

31. В двумерном массиве A из m строк и n столбцов найти сумму всех элементов и заменить на нули элементы на главной диагонали.

var

A:array[1..10,1..10] of integer;

S,i,j,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

S:=0;

for i:=1 to m do

for j:=1 to n do

s:=s+A[i,j];

Writeln('Sum=',S);

for i:=1 to m do

for j:=1 to n do

if i=j then

A[i,j]:=0;

for i:=1 to m do

begin

for j:=1 to n do

Write(A[i,j],' ');

Writeln

end

end.

32. В двумерном массиве A из m строк и n столбцов найти произведение всех элементов и заменить на нули элементы выше главной диагонали.

var

A:array[1..10,1..10] of integer;

P,i,j,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

P:=1;

for i:=1 to m do

for j:=1 to n do

P:=P*A[i,j];

Writeln('Pro=',P);

for i:=1 to m do

for j:=1 to n do

if i<j then

A[i,j]:=0;

for i:=1 to m do

begin

for j:=1 to n do

Write(A[i,j],' ');

Writeln

end

end.

33. В двумерном массиве A из m строк и n столбцов найти максимальный среди всех элементов и заменить на нули элементы ниже главной диагонали.

var

A:array[1..10,1..10] of real;

Max:real;

i,j,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

max:=-maxint;

for i:=1 to m do

for j:=1 to n do

if A[i,j]>max then

max:=A[i,j];

Writeln('max=',max);

for i:=1 to m do

for j:=1 to n do

if i>j then

A[i,j]:=0;

for i:=1 to m do

begin

for j:=1 to n do

Write(A[i,j],' ');

Writeln

end

end.

34. В двумерном массиве A из m строк и n столбцов найти минимальный среди всех элементов и заменить на нули элементы вне главной диагонали.

var

A:array[1..10,1..10] of integer;

min,i,j,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Read(A[i,j]);

min:=maxint;

for i:=1 to m do

for j:=1 to n do

if A[i,j]<min then

min:=A[i,j];

Writeln('min=',min);

for i:=1 to m do

for j:=1 to n do

if i<>j then

A[i,j]:=0;

for i:=1 to m do

begin

for j:=1 to n do

Write(A[i,j],' ');

Writeln

end

end.

35. В двумерном массиве A из m строк и n столбцов найти среднее значение среди всех элементов и индексы максимального элемента.

var

A:array[1..10,1..10] of integer;

S,i,j,imax,jmax,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

S:=0;

for i:=1 to m do

for j:=1 to n do

S:=S+A[i,j];

Writeln('SR=',S/n/m);

imax:=1;

jmax:=1;

for i:=1 to m do

for j:=1 to n do

if A[i,j]>A[imax,jmax] then

begin

imax:=i;

jmax:=j

end;

Writeln('i=',imax,' j=',jmax);

readln

end.

36. В двумерном массиве A из m строк и n столбцов найти сумму элементов на главной диагонали и индексы минимального элемента.

var

A:array[1..10,1..10] of integer;

S,i,j,imin,jmin,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

S:=0;

for i:=1 to m do

for j:=1 to n do

if i=j then

S:=S+A[i,j];

Writeln('S=',S);

imin:=1;

jmin:=1;

for i:=1 to m do

for j:=1 to n do

if A[i,j]<A[imin,jmin] then

begin

imin:=i;

jmin:=j

end;

Writeln('i=',imin,' j=',jmin);

readln

end.

37. В двумерном массиве A из m строк и n столбцов найти количество элементов выше главной диагонали и сумму элементов 3-й строки.

var

A:array[1..10,1..10] of integer;

S,K,i,j,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

K:=0;

for i:=1 to m do

for j:=1 to n do

if i<j then

K:=K+1;

Writeln('K=',K);

S:=0;

for j:=1 to n do

S:=S+A[3,j];

Writeln('S=',S);

readln

end.

38. В двумерном массиве A из m строк и n столбцов найти произведение элементов ниже главной диагонали и сумму элементов 2-го столбца.

var

A:array[1..10,1..10] of integer;

P,S,i,j,m,n:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

P:=0;

for i:=1 to m do

for j:=1 to n do

if i>j then

P:=P+1;

Writeln('P=',P);

S:=0;

for i:=1 to m do

S:=S+A[i,2];

Writeln('S=',S);

readln

end.

39. В двумерном массиве A из m строк и n столбцов найти максимальный среди элементов вне главной диагонали и разделить отрицательные элементы на 40.

var

A:array[1..10,1..10] of real;

i,j,m,n:integer;

max:real;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

max:=a[1,2];

for i:=1 to m do

for j:=1 to n do

if (i<>j) and (max<a[i,j]) then

max:=a[i,j];

Writeln('max=',max);

for i:=1 to m do

for j:=1 to n do

if A[i,j]<0 then

A[i,j]:=A[i,j]/40;

for i:=1 to m do

begin

for j:=1 to n do

write(A[i,j],' ');

writeln

end;

readln

end.

40. В двумерном массиве A из m строк и n столбцов найти минимальный среди элементов на главной диагонали и умножить положительные элементы на 30.

var

A:array[1..10,1..10] of real;

i,j,m,n:integer;

min:real;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Read(A[i,j]);

min:=a[1,1];

for i:=1 to m do

for j:=1 to n do

if (i=j) and (min>a[i,j]) then

min:=a[i,j];

Writeln('min=',min);

for i:=1 to m do

for j:=1 to n do

if A[i,j]>0 then

A[i,j]:=A[i,j]*30;

for i:=1 to m do

begin

for j:=1 to n do

write(A[i,j],' ');

writeln

end;

readln

end.

41. В двумерном массиве A из m строк и n столбцов найти среднее значение среди элементов выше главной диагонали и сформировать массив B уменьшением элементов массива A на 20.

var

A,B:array[1..10,1..10] of integer;

i,j,m,n,S,K:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

s:=0;

k:=0;

for i:=1 to m do

for j:=1 to n do

if i<j then

begin

k:=k+1;

S:=s+A[i,j]

end;

Writeln('Sr=',S/K);

for i:=1 to m do

for j:=1 to n do

if A[i,j]>0 then

B[i,j]:=A[i,j]-20;

for i:=1 to m do

begin

for j:=1 to n do

write(B[i,j],' ');

writeln

end;

readln

end.

42. В двумерном массиве A из m строк и n столбцов найти сумму элементов ниже главной диагонали и сформировать массив B увеличением элементов массива A на 10.

var

A,B:array[1..10,1..10] of integer;

i,j,m,n,S:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

s:=0;

for i:=1 to m do

for j:=1 to n do

if i>j then

S:=s+A[i,j];

Writeln('S=',S);

for i:=1 to m do

for j:=1 to n do

if A[i,j]>0 then

B[i,j]:=A[i,j]+10;

for i:=1 to m do

begin

for j:=1 to n do

write(B[i,j],' ');

writeln

end;

readln

end.

43. В двумерном массиве A из m строк и n столбцов найти количество элементов вне главной диагонали и минимальные элементы в каждом столбце.

var

A:array[1..10,1..10] of integer;

i,j,m,n,k,min:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Read(A[i,j]);

k:=0;

for i:=1 to m do

for j:=1 to n do

if i<>j then

k:=k+1;

Writeln('k=',k);

for j:=1 to n do

begin

min:=a[1,j];

for i:=2 to m do

if A[i,j]<min then

min:=A[i,j];

write(min,' ')

end;

readln

end.

44. В двумерном массиве A из m строк и n столбцов найти произведение элементов на главной диагонали и минимальные элементы в каждой строке.

var

A:array[1..10,1..10] of integer;

i,j,m,n,P,min:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

P:=0;

for i:=1 to m do

for j:=1 to n do

if i=j then

P:=P*A[i,j];

Writeln('P=',P);

for i:=1 to m do

begin

min:=a[i,1];

for j:=2 to n do

if A[i,j]<min then

min:=A[i,j];

write(min,' ')

end;

readln

end.

45. В двумерном массиве A из m строк и n столбцов найти максимальный среди элементов выше главной диагонали и произведения элементов в каждом столбце.

var

A:array[1..10,1..10] of integer;

i,j,m,n,P,max:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

max:=-maxint; {maxint vozvrashaet 32727}

for i:=1 to m do

for j:=1 to n do

if (i<j) and (A[i,j]>max) then

max:=A[i,j];

Writeln('max=',max);

for j:=1 to n do

begin

P:=1;

for i:=1 to m do

P:=P*A[i,j];

write(P,' ')

end;

readln

end.

46. В двумерном массиве A из m строк и n столбцов найти минимальный среди элементов ниже главной диагонали и произведения элементов в каждой строке.

var

A:array[1..10,1..10] of integer;

i,j,m,n,P,min:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

min:=maxint; {maxint vozvrashaet 32727}

for i:=1 to m do

for j:=1 to n do

if (i>j) and (A[i,j]<min) then

min:=A[i,j];

Writeln('min=',min);

for i:=1 to m do

begin

P:=1;

for j:=1 to n do

P:=P*A[i,j];

writeln(P)

end;

readln

end.

47. В двумерном массиве A из m строк и n столбцов найти среднее значение среди элементов вне главной диагонали и максимальные элементы в каждом столбце.

var

A:array[1..10,1..10] of integer;

i,j,m,n,S,K,max:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

s:=0;

k:=0;

for i:=1 to m do

for j:=1 to n do

if i<>j then

begin

k:=k+1;

S:=s+A[i,j]

end;

Writeln('Sr=',S/K);

for j:=1 to n do

begin

max:=a[1,j];

for i:=2 to m do

if A[i,j]>max then

max:=A[i,j];

write(max,' ')

end;

readln

end.

48. В двумерном массиве A из m строк и n столбцов найти количество положительных элементов и максимальные элементы в каждой строке.

var

A:array[1..10,1..10] of integer;

i,j,m,n,K,max:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

k:=0;

for i:=1 to m do

for j:=1 to n do

if A[i,j]>0 then

k:=k+1;

Writeln('K=',K);

for i:=1 to m do

begin

max:=a[i,1];

for j:=2 to n do

if A[i,j]>max then

max:=A[i,j];

write(max,' ')

end;

readln

end.

49. В двумерном массиве A из m строк и n столбцов найти количество отрицательных элементов и суммы элементов в каждом столбце.

var

A:array[1..10,1..10] of integer;

i,j,m,n,K,S:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

k:=0;

for i:=1 to m do

for j:=1 to n do

if A[i,j]<0 then

k:=k+1;

Writeln('K=',K);

for j:=1 to n do

begin

S:=0;

for i:=1 to m do

S:=S+A[i,j];

write(S,' ')

end;

readln

end.

50. В двумерном массиве A из m строк и n столбцов найти количество нулевых элементов и суммы элементов в каждой строке.

var

A:array[1..10,1..10] of integer;

i,j,m,n,K,S:integer;

begin

Readln(m,n);

for i:=1 to m do

for j:=1 to n do

Readln(A[i,j]);

k:=0;

for i:=1 to m do

for j:=1 to n do

if A[i,j]=0 then

k:=k+1;

Writeln('K=',K);

for i:=1 to m do

begin

S:=0;

for j:=1 to n do

S:=S+A[i,j];

write(S,' ')

end;

readln

end.