• Дан массив X(N,M). Найти произведение элементов тех столбцов массива, в которых все элементы положительные. Из полученных значений сформировать одномерный массив.

    Помогите пожалуйста!

Ответы 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.
    • Автор:

      jesse151
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years