Вычислить произведение элементов, больших заданного Х и расположенных в столбцах с нечетными номерами

@vlad_bel · Регистрация: 14.01.2013

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

вычислить произведение элементов, больших заданного Х и расположенных в столбцах с нечетными номерами(МАТРИЦА)

@Grek! · 19.02.2013, 20:03

Сообщение от vlad_bel

вычислить произведение элементов, больших заданного Х и расположенных в столбцах с нечетными номерами(МАТРИЦА)

Pascal

Program Primer;
var D: array [1..10,1..10] of integer;
n,m, i,j, p,x:integer;
begin
write ('Ââåäèòå êîëè÷åñòâî ñòðîê è ñòîëáöîâ:');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
begin
write ('D[',i,',',j,']=');
readln (D[i,j]);
end;
writeln('Massiv');
for i:=1 to n do begin
for j:=1 to m do
write(d[i,j]:3);
writeln;
end;
writeln('Ââåäèòå Õ:');
readln(x);
p:=1;
for i:=1 to n do
for j:=1 to m  do
IF (d[i,j]>x)and((j mod 2)<>0) then p:=p*d[i,j];
writeln('Rezultat: ',p);
end.

@vlad_bel 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 4
		1
	Вычислить произведение элементов, больших заданного Х и расположенных в столбцах с нечетными номерами 19.02.2013, 19:36. Показов 2521. Ответов 1 Метки нет (Все метки) вычислить произведение элементов, больших заданного Х и расположенных в столбцах с нечетными номерами(МАТРИЦА) 0

	19.02.2013, 20:03

Вычислить произведение элементов, больших заданного Х и расположенных в столбцах с нечетными номерами

Решение