Надеюсь я правильно понял условие задачи!
| Код |
uses crt;
var i,j,n,m: Integer;
a: array[1..100,1..100] of Real;
c: array[1..100] of Real;
res: Real;
begin
clrscr;
write('vvedite kolichestvo strok: '); Readln(n);
write('vvedite kolichestvo stolbzov: '); Readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
writeln;
writeln('Matriza A:');
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]:5:2);
writeln;
end;
writeln;
res:=1;
for j:=1 to m do
begin
for i:=1 to n do
res:=res*a[i,j];
c[j]:=res;
res:=1;
end;
writeln('Result:');
for j:=1 to m do
write(' ',c[j]:5:2);
readln;
end.
|
|
