Сформировать одномерный массив А из элементов матрицы, кратных трём

Категория: Delphi/Pascal
2011-09-05 19:16:12

Сформировать одномерный массив А из элементов матрицы, кратных трём. Найти А[минимум] и его номер. Результаты вывести в общепринятом виде.

code: #pascal
  1. program prog;
  2. const
  3.   matX = 10;
  4.   matY = 10;
  5. var
  6.   matrix:array [1..matX,1..matY] of Integer;
  7.   vector:array [1..matX*matY] of Integer;
  8.   counter,i,j,min:integer;
  9.   PosInVector,PosInMatrixX,PosInMatrixY:integer;
  10. begin
  11.   counter:=1;
  12.   min:=30000;
  13.   PosInVector:=0;
  14.   PosInMatrixX:=0;
  15.   PosInMatrixY:=0;
  16.   for i := 1 to matX do
  17.     for j := 1 to matY do
  18.       begin
  19.         matrix[i,j]:=Random(30000);
  20.         if ((matrix[i,j]/3) = (matrix[i,j] div 3)) and (matrix[i,j]>0) then
  21.           begin
  22.             vector[counter]:=matrix[i,j];
  23.             if vector[counter]<min then
  24.               begin
  25.                 min:=vector[counter];
  26.                 PosInVector:=counter;
  27.                 PosInMatrixX:=i;
  28.                 PosInMatrixY:=j;
  29.               end;
  30.             inc(Counter);
  31.           end;
  32.       end;
  33.   WriteLn('Min element value:',min);
  34.   WriteLn('Position in vector:',PosInVector);
  35.   WriteLn('Position in matrix X:',PosInMatrixX,' Y:',PosInMatrixY);
  36.   Readln;
  37. end.
Поделиться:

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

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