- •Задача 1
- •Задача 6
- •Задача 17
- •Задача 20
- •Задача 26
- •Задача 48
- •Задача 51
- •Задача 52
- •Задача 70
- •Задача 84
- •Задача 85
- •Задача 86
- •Задача 87
- •Задача 88
- •Задача 89
- •Задача 90
- •Задача 91
- •Задача 92
- •Задача 93
- •Задача 94
- •Задача 95
- •Задача 96
- •Задача 97
- •Задача 98
- •Задача 99
- •Задача 100
- •Задача 101
- •Задача 102
- •Задача 103
- •Задача 104
- •Задача 105
- •Задача 106
- •Задача 107
- •Задача 108
- •Задача 109
- •Задача 110
- •Задача 111
- •Задача 112
- •Задача 113
- •Задача 114
- •Задача 115
- •Задача 116
- •Задача 117
- •Задача 118
- •Задача 119
- •Задача 120
Задача 92
program pr92;
{92. Дана действительная квадратная матрица порядка n.
Найти сумму элементов, расположенных в заштрихованной части матрицы}
Type
tmas2=array [1..10,1..10] of real;
var
n:byte;
a:tmas2;
procedure VvodM(filename:string; Var a:tmas2);
var
fin:text;
i,j: byte;
begin
assign(fin,filename);
reset(fin);
Readln(fin,n);
for i:=1 to n do
for j:=1 to n do
read(fin,a[i,j]);
close(fin);
end;
procedure VivodM(filename:string; n:byte; a:tmas2);
var
fout:text;
i,j:byte;
begin
assign(fout,filename);
rewrite(fout);
writeln(fout,'Ishodnye dannye:');
for i:=1 to n do
begin
for j:=1 to n do
write(fout,a[i,j],' ');
writeln(fout);
end;
close(fout);
end;
procedure Sum(a:tmas2);
var
i,j:byte;
fout:text;
sum: real;
begin
assign(fout,'L7_OUT.TXT');
append(fout);
for i:=1 to n do
for j:=1 to i do
sum:=sum+a[i,j];
Writeln(fout,'summa =',sum);
close(fout);
end;
begin
VvodM('L7_IN.TXT',a);
VivodM('L7_OUT.TXT',n,a);
Sum(a);
end.
Задача 93
program pr93;
{93. Дана действительная квадратная матрица порядка n.
Найти сумму элементов, расположенных в заштрихованной части матрицы}
Type
tmas2=array [1..10,1..10] of real;
var
n:byte;
a:tmas2;
procedure VvodM(filename:string; Var a:tmas2);
var
fin:text;
i,j: byte;
begin
assign(fin,filename);
reset(fin);
Readln(fin,n);
for i:=1 to n do
for j:=1 to n do
read(fin,a[i,j]);
close(fin);
end;
procedure VivodM(filename:string; n:byte; a:tmas2);
var
fout:text;
i,j:byte;
begin
assign(fout,filename);
rewrite(fout);
writeln(fout,'Ishodnye dannye:');
for i:=1 to n do
begin
for j:=1 to n do
write(fout,a[i,j],' ');
writeln(fout);
end;
close(fout);
end;
procedure Sum(a:tmas2);
var
i,j:byte;
fout:text;
sum: real;
begin
assign(fout,'L7_OUT.TXT');
append(fout);
for i:=1 to n do
for j:=1 to n-i+1 do
sum:=sum+a[i,j];
Writeln(fout,'summa =',sum);
close(fout);
end;
begin
VvodM('L7_IN.TXT',a);
VivodM('L7_OUT.TXT',n,a);
Sum(a);
end.
Задача 94
program pr94;
{94. Дана действительная квадратная матрица порядка n.
Найти сумму элементов, расположенных в заштрихованной части матрицы}
Type
tmas2=array [1..10,1..10] of real;
var
n:byte;
a:tmas2;
procedure VvodM(filename:string; Var a:tmas2);
var
fin:text;
i,j: byte;
begin
assign(fin,filename);
reset(fin);
Readln(fin,n);
for i:=1 to n do
for j:=1 to n do
read(fin,a[i,j]);
close(fin);
end;
procedure VivodM(filename:string; n:byte; a:tmas2);
var
fout:text;
i,j:byte;
begin
assign(fout,filename);
rewrite(fout);
writeln(fout,'Ishodnye dannye:');
for i:=1 to n do
begin
for j:=1 to n do
write(fout,a[i,j],' ');
writeln(fout);
end;
close(fout);
end;
procedure Sum(a:tmas2);
var
i,j:byte;
fout:text;
sum: real;
begin
assign(fout,'L7_OUT.TXT');
append(fout);
for i:=1 to n do
for j:=i to n do
sum:=sum+a[i,j];
Writeln(fout,'summa =',sum);
close(fout);
end;
begin
VvodM('L7_IN.TXT',a);
VivodM('L7_OUT.TXT',n,a);
Sum(a);
end.