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

Категория: Delphi/Pascal
2011-09-01 22:54:43
code: #delphi
  1. const
  2.    N=10;
  3. var
  4.    a:array[1..N,1..N]of integer;
  5.    Pr:Longint; {произведение}
  6.    i,j:integer;
  7. begin
  8.    Pr:=1;
  9. for i:=1 to N do
  10.   begin
  11.    for j:=1 to N do
  12.      begin
  13.       if a[i,j] < 0 then
  14.           Pr:=Pr*a[i,j];    
  15.      end;
  16.   end;
  17. WriteLn('Произведение отрицательных элементов :',Pr);
  18. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, массив, двумерный массив, матрица