Помогите сделать программу в паскали очень прошу. Найти, сколько положительных элементов содержит данная матрица в каждом столбце
Const
maxElements = 1000;
var arr : array[1..maxElements, 1..maxElements] of integer;
counterArray : array[1..maxElements] of integer;
i, j, n, m, countOfPositive: integer;
begin
write(Введите количество строк: );
readln(n);
write(Введите количество столбцов: );
readln(m); writeln(Введите элементы массивы);
for i:=1 to n do
for j:=1 to m do
read(arr[i,j]);
countOfPositive := 0;
for j:=1 to m do
begin
for i:=1 to n do
if arr[i,j] > 0 then Inc(countOfPositive);
counterArray[j] := countOfPositive;
countOfPositive := 0;
end;
writeln(Количество положительных элементов в каждом столбце);
for j:=1 to m do
write(counterArray[j], );
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
