Взаданном массиве а(m,n) найти количество положительных элементов по столбцам. образовать массив b(m,n), делением элементов заданного массива на найденное количество положительных элементов по столбцам.
Program gt; var a:array[1..100,1..100]of longint; k,m,i,n,j:longint; b:array[1..100,1..100]of real; begin read(n,m); for i:=1 to n do begin for j:=1 to m do begin read(a[i,j]); end; end; for j:=1 to m do begin k:=0; for i:=1 to n do begin if(a[i,j]>0)then k:=k+1; end; for i:=1 to n do begin b[i,j]:=a[i,j]/k; end; end; for i:=1 to n do begin for j:=1 to m do begin write(b[i,j],' '); end; writeln; end; end.
var a:array[1..100,1..100]of longint;
k,m,i,n,j:longint;
b:array[1..100,1..100]of real;
begin
read(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
end;
end;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
begin
if(a[i,j]>0)then k:=k+1;
end;
for i:=1 to n do
begin
b[i,j]:=a[i,j]/k;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(b[i,j],' ');
end;
writeln;
end;
end.