program kontr;
uses Crt;
const n=3;
type
vec=array [1..n] Of integer;
mas=array [1..n] of vec;
var
v1,v2:mas; s1,s2:integer;
procedure input (var v:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
writeln ('vvesti element massiva');
readln (v[i,j]);
end;
end;
Procedure output (v:mas);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write (' ',v[i,j]);
writeln;
end;
end;
function sum (v:mas):integer;
var s,i:integer;
begin
s:=0;
For i:=1 To n Do s:=s+v[i, i];
sum:=s;
end;
begin
ClrScr;
write ('vvod massiva 1');
readln;
input (v1);
writeln ('vvod massiva 2');
input (v2);
writeln ('massiv 1:');
output (v1);
writeln ('massiv 2:');
output (v2);
s1:=sum(v1);
s2:=sum(v2);
writeln (s1,' ',s2);
readln;
end.
Здравствуйте, подскажите пожалуйста как организовать транспонирование матрицы в моей программе, не понимаю, надо сделать еще одну процедуру либо функцию или транспонирование можно сделать в функции нахождения суммы?
Сообщение отредактировано: Mysteo -