Вопрос по информатике:
Дан массив X(N,M). Найти произведение элементов тех столбцов массива, в которых все элементы положительные. Из полученных значений сформировать одномерный массив.
Помогите пожалуйста!
- 16.04.2015 14:47
- Информатика
- remove_red_eye 13165
- thumb_up 23
Ответы и объяснения 1
Const nm = 20;var X:Array[1..nm,1..nm] of integer;i,j,n,m,k,p:integer;B:Array[1..nm] of integer;beginwrite('Введите строки n и столбцы m ');read(n,m);p:=1;for i:=1 to n do beginfor j:=1 to m do beginX[i,j]:= random(30)-5;write(X[i,j]:4);end;writeln;end;writeln;for j:=1 to m do beginfor i:=1 to n do beginif X[i,j] > 0 then beginp:= p * X[i,j]; k:= k+1;endelse beginp:= 1;k:=0;end;end;if k = n then B[j]:=p;p:= 1;k:=0;end;
for i:=1 to m dowrite(i:2,B[i]:9);end.
- 17.04.2015 05:26
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.