Контрольная работа: Использование программирования в математике

end;

Procedure ActArr(var a:mas; count1,count2: integer; b:mas2);

var i,j,S,k:integer;

begin

k:=1;

for j:=2 to count1 do

begin

S:=0;

for i:=1 to count2 do S:=S+sqr(a[i,j*2-2]);

b[k]:=S;

k:=k+1;

end;

end;

Procedure OutputArr(var a:mas2; col: integer);

var i:integer;

begin

for i:=1 to col do write(a[i]:5);

end;

begin

writeln('Vvod matrici A'); fillarr(A, 7, 7);

writeln('Vvod matrici B'); fillarr(B, 5, 5);

ActArr(A,4,7,C);

ActArr(B,3,5,D);

writeln('Massiv C');

OutputArr(C, 3); writeln;

writeln('Massiv D');

OutputArr(D,2);

readln;

end.