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

@andlog · Регистрация: 21.01.2021

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

Определить количество положительных элементов в каждой строке матрицы С(5Х5) и записать эти числа в массив Д. ввод чисел ручной.

@Puporev · 22.01.2021, 09:33

Pascal

const n=5;
var c:array[1..n,1..n]of integer;
    d:array[1..n]of integer;
    i,j:integer;
begin
writeln('Введите ',n*n,' элементов матрицы, целых чисел');
for i:=1 to n do
for j:=1 to n do
 begin
  write('c[',i,',',j,']=');
  readln(c[i,j]);
 end;
writeln('Введенная матрица C');
for i:=1 to n do
 begin
  d[i]:=0;
  for j:=1 to n do
   begin
    write(c[i,j]:5);
    if c[i,j]>0 then inc(d[i]);
   end;
 writeln;
end;
writeln('Количество положительных элементов в строках матрицы');
for i:=1 to n do
write(d[i]:2);
end.

@andlog 0 / 0 / 0 Регистрация: 21.01.2021 Сообщений: 4
		1
	Определить количество положительных элементов в каждой строке матрицы 22.01.2021, 09:16. Показов 1958. Ответов 1 Метки нет (Все метки) Определить количество положительных элементов в каждой строке матрицы С(5Х5) и записать эти числа в массив Д. ввод чисел ручной. 0

	22.01.2021, 09:33

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

Решение