Найти количество положительных элементов матрицы и сумму элементов по строкам

@Ground_X · Регистрация: 21.12.2016

Author24 — интернет-сервис помощи студентам

Дан двумерный массив (матрица) размером NxM.

1. Найти количество положительных элементов массива.

2. Найти сумму минимальных элементов массива по строкам.

@Tosse · 21.12.2016, 09:10

Pascal

const
m = 10;
n = 5;
var a:array[1..n,1..m] of integer;
i, sum, j, k: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=-9+random(18);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to n do
    for j:=1 to m do
        if a[i,j] > 0 then
            inc(k);
writeln('количество положительных элементов массива: ',k);
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        sum:=sum+a[i,j];
    writeln('Сумма элементов строки ', i,' =  ', sum);
    end;
end.

@Ground_X 0 / 0 / 0 Регистрация: 21.12.2016 Сообщений: 42
		1
	Найти количество положительных элементов матрицы и сумму элементов по строкам 21.12.2016, 08:35. Показов 1002. Ответов 1 Метки нет (Все метки) Дан двумерный массив (матрица) размером NxM. 1. Найти количество положительных элементов массива. 2. Найти сумму минимальных элементов массива по строкам. 0

	21.12.2016, 09:10

Найти количество положительных элементов матрицы и сумму элементов по строкам

Решение