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

@RomanInF · Регистрация: 20.12.2014

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

Дана матрица X(N,M) (N10; M15). Найти произведение положительных элементов каждой строки матрицы с четным номером. Вывести на экран построчно произведение и соответствующий номер строки. Очень прошу помогите

@vint-81 · 20.12.2014, 12:35

Pascal

const n=10;m=15;
var a:array[1..n,1..m] of integer;
    i,j:integer;
    pr:longint;
    f:boolean;
begin
    randomize;
    for i:=1 to n do 
     begin
      pr:=1;
      f:=false;
      for j:=1 to n do
       begin
        a[i,j]:=-10+random(21);
        write(a[i,j]:4);
        if (not odd(j))and(a[i,j]>0) then begin pr:=pr*a[i,j]; f:=true end;
       end;
      if f then writeln('  произведение положительных с четными номерами = ',pr)
           else writeln('  нет положительных с четными номерами')
     end
end.

@RomanInF 0 / 0 / 0 Регистрация: 20.12.2014 Сообщений: 1
		1
	Произведение положительных элементов каждой строки матрицы 20.12.2014, 11:32. Показов 2170. Ответов 1 Метки нет (Все метки) Дана матрица X(N,M) (N10; M15). Найти произведение положительных элементов каждой строки матрицы с четным номером. Вывести на экран построчно произведение и соответствующий номер строки. Очень прошу помогите 0

	20.12.2014, 12:35

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

Решение