Type Matrix = array[1..10,1..10] of integer;
var
M,N,K,j:integer;
A:Matrix;

Function SumCol(A:Matrix; M:integer; N,K:integer):Real;
var
j,Sum:integer;
begin
Sum:=0;
if K<=N then
for j:=1 to N do
Sum:=Sum+A[j,k];
SumCol:=Sum;
end;

Procedure EnterMatrix(var B:Matrix; var M,N:integer);
var j,j2:integer;
begin
Write('M: ');
Readln(M);

Write('N: ');
Readln(N);

for j:=1 to N do
begin
for j2:=1 to M do
begin
Write (' ',J2,':',J,' : ');
Read (B[J2,J]);
end;
Writeln;
end;
end;

begin
EnterMatrix(A,M,N);

for j:=1 to 3 do
begin
Write('K: ');
Readln(K);
Writeln(SumCol(A,M,N,K));
end;
end.
перевестите в паскал на питон

polisavostina    1   06.05.2021 10:52    0