Отпечатать номер каждого столбца, сумма элементов которого больше 0

@Stasia_lime · Регистрация: 21.01.2012

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

Для матрицы из 3 строк и 10 столбцов отпечатать номер каждого столбца, сумма элементов которого больше 0, и число таких столбцов.

Kodzaev · 22.01.2012, 20:39

Pascal

uses crt;
var i,j,n,m,sum,k:integer;
x:array[1..10,1..10] of integer;
Begin clrscr;
k:=0;
randomize;
for i:=1 to 3 do
for j:=1 to 10 do
x[i,j]:=random(100)-50;
writeln('Ishodnaya matrica: ');
for i:=1 to 3 do begin
for j:=1 to 10 do
write(x[i,j],' ');
writeln;
end;
writeln('Nomera stolbcov elementi kotorih > 0: ');
for j:=1 to 10 do
Begin sum:=0;
for i:=1 to 3 do
sum:=sum+x[i,j];
if sum>0 then Begin inc(k); writeln(j,' ');  end;
End;
writeln('Kolichestvo takih stolbcov: ',k);
readln
end.

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51
		1
	Отпечатать номер каждого столбца, сумма элементов которого больше 0 22.01.2012, 19:56. Показов 1179. Ответов 1 Метки нет (Все метки) Для матрицы из 3 строк и 10 столбцов отпечатать номер каждого столбца, сумма элементов которого больше 0, и число таких столбцов. 1

	22.01.2012, 20:39

Отпечатать номер каждого столбца, сумма элементов которого больше 0

Решение