Question

В заданном массиве А(m,n) найти количество положительных элементов по столбцам. Образовать массив B(m,n), делением элементов заданного массива на найденное количество положительных элементов по столбцам.

Answer 1

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.

Answer 2

А блок-схему не поможете начертить?

Answer 3

давно нерешал блок схемой поэтому забыл

Answer 4

Ну все равно огромное спасибо!)))