15-вариант
Следом квадратной матрицы называется суммаэлементов, расположенных на главной дигонали. Даны Квадратная матрица порядка m, натуральное число n. Вычислить следы матриц A,A2,…,An
program var15;
uses crt; const m=3;
type mas=array[1..m,1..m] of integer;
var a:mas;
min,i,j,k,n:integer;
s1,s:real;
procedure VV(var R:mas);
begin
writeln('vvod massiva');
for i:=1 to m do
for j:=1 to m do
read(r[i,j]);
write('n=');
readln(n) end;
function mino (x:mas):real;
begin
s1:=0;
for k:=1 to n do
for i:=1 to m do
for j:=1 to i do begin
s1:=s1+exp(k*ln(x[i,j]));
min:=k; end; end;
begin
clrscr;
s:=0;
vv(A)
min(A)
s:=s+min(A);
writeln('sled=',s:4:2);
readkey;
end.
17 Вариант
Даны четыре массива A[6,6],B[6,6],C[6,6],D[6,6]. Найти сумму минимальных элементов расположенных в четных столбцах этих массивов.
Program bolat;
Const n=6;
Type mas= array [1..n,1..n] of integer;
Var a,b,c,d:mas;
I,j,s:integer;
Procedure vv(var r:mas);
Var I,j:integer;
Begin
Writeln(‘vvod’);
For i:=1 to n do
For j:=1 to n do
Read(R[I,j]);
End;
Function omin(x:mas):integer;
Var I,j,min:integer;
Begin
Min:=x[1,2]
For j:=1 to n do
If j mod 2=0 then for i:=1 to n do
If x[I,j]<min then
Min:=x[I,j];
Omin:=min;
End;
Begin
Vv(A); vv(B); vv(C); vv(D);
S:=0;
S:=omin(A)+omin(b)+omin(C)+omin(d);
Writeln(‘s=’,s);
End.
19-variant
Даны четыре массива A[5,5],B[5,5],C[5,5],D[5,5]. Вывести на печать массив с миннимальной суммой нечетных элементов расположенных ниже побочной диагонали массива.
program variant19;
const h=5;
type matrix=array[1..n,1..n]of integer;
var A,B,C,D:matrix;
i,j:integer;g:real;
procedure VV(var R:matrix);
Var I,j:integer;
begin
writeln('vvod');
for i:=1 to n do
for j:=1 to n do
read(R[i,j]);end;
procedure VV(var w:matrix);
Var I,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(w[i,j:4]);
writeln;end;end;
function kos(var x:matrix):real;
var i,j:integer;s:real;
begin
s:=0
for i:=2 to n do
for j:=7 to n do
if x[i,j]mod 2<>0 then
s:=s+x[i,j];
kos:=s;end;begin
VV(A);VV(B);VV(C);VV(D);
if(kos(a)<kos(b) and (kos(a)<kos(c)))and (kos(a)<kos(d)) then VIV(a);
else if (kos(b)<kos(c)) and (kos(b)<kos(d)) then VIV(b);
else if (kos(c)<kos(d)) and (kos(d)) then VIV(c);
else VIV(d);
end.
20-variant
Даны четыре массива A[5,5],B[5,5],C[5,5],D[5,5]. Найти минимальную сумму четных положительных элементов, расоложенных в нечетных строках массива.
Program sake;
Const n=5;
Type mas=array[1..n,1..n] of integer;
Var a,b,c,d:mas;
I,j,s:integer;
Procedure vvod(var r:mas);
Var I,j:integer;
Begin
Writeln(‘vvod’);
For i:=1 to n do
For j:=1 to n do
Read(r[I,j]);
End;
Function suma(x:mas):integer;
Var I,j,s:integer;
Begin
s:=0
For i:=1 to n do
If I mod 2<>0 then
For j:=1 to n do
If (x[I,j]>0) and (x[I,j] mod 2=0) then
S:=s+x[I,j];
Suma:=s;
End;
Begin
Vvod(a);vvod(B);vvod(c); Vvod(D);
If (suma(a)<suma(b)) and (suma(a)<suma(c)) and (suma(a)<suma(d)) then
Writeln(‘suma(a)=’,suma(a)) else
If (summa(b)<suma(a)) and (suma(b)<suma(c)) and (suma(b)<suma(d)) then
Writeln(‘suma(b)=’, suma(b)) else
If (suma(c)<suma(a)) and (suma(c)<suma(b)) and (suma(c)<suma(d)) then
Writeln(‘suma(c)=’, suma(c)) else
If (suma(d)<suma(a)) and (suma(d)<suma(b)) and (suma(d)<suma(c)) then
Writeln(‘suma(d)=’, suma(d));
End.
22-var
Даны три массива A[7,7],B[7,7],C[7,7]. Найти произведение ненулевых элементов расположенных ниже главной диагонали
Program chlen;
Const n=5;
Type matrix=array [1..n,1..n] of integer;
Var a,b,c:matrix;
I,j:integer; G:=real;
Procedure vv(var r:matrix);