произведение элементов матрицы mхn, удовлетворяющих условию А[i,j]<=2; кол-во остальных неотриц. эл-ов.

[Farridjan]

пожалуйста поможите с задачей на макросы:

"Найти произведение элементов матрицы mхn, удовлетворяющих условию А[i,j]<=2, и количество неотрицательных остальных элементов. Задание выполнить тремя способами."

Заранее благодарен

[counter]

P:integer;

 for i:=1 to n do
 for j:=1 to n do
begin
 if (a[i,j] <=2)  then P:=P*a[i,j];
end;

[puporev]

Задание конечно идиотское.

и количество неотрицательных остальных элементов.

Если остальные больше 2 то они и так неотрицательные.

uses crt;
var a:array[1..50,1..50] of real;
    m,n,i,j,k:byte;
    p:real;
begin
clrscr;
randomize;
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random-3;
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
{1 способ}
k:=0;p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<=2 then p:=p*a[i,j]
else k:=k+1;
writeln('1 способ:  произведение=',p:0:5,'  количество=',k);
{2 способ}
k:=0;p:=1;
i:=1;
while i<=m do
 begin
  j:=1;
  while j<=n do
   begin
    if a[i,j]<=2 then p:=p*a[i,j]
    else k:=k+1;
    j:=j+1;
   end;
  i:=i+1;
 end;
writeln('2 способ:  произведение=',p:0:5,'  количество=',k);
{3 способ}
k:=0;p:=1;
i:=0;
repeat
 i:=i+1;
 j:=0;
 repeat
  j:=j+1;
  if a[i,j]<=2 then p:=p*a[i,j]
  else k:=k+1;
 until j=n;
until i=m;
writeln('3 способ:  произведение=',p:0:5,'  количество=',k);
readln
end.

[Farridjan]

Спасибо огоромное всем!!!)))