Advertisement
Infiniti_Inter

VI/12

May 22nd, 2021
1,208
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.76 KB | None | 0 0
  1.  
  2. program VI;
  3. var
  4. a : array [1..1000, 1..1000] of integer;
  5. b: array[1..1000] of integer;
  6. last, j, i, n : integer;
  7.  
  8. begin
  9.     ReadLN(n);
  10.     for i:= 1 to n do begin
  11.         for j:= 1 to n do
  12.             Read(a[i,j]);//считываем массив
  13.         ReadLN();// для переноса строки
  14.         end;
  15.    
  16.     for j:= 1 to n do
  17.         begin
  18.             last := -1;//обнуляем последнюю позицию четного числа
  19.             for i:= 1 to n do
  20.                 if (a[i, j] MOD 2 = 0) then// если текущее число четное
  21.                     last := i;//запишем его позицию
  22.             b[j]:= last;//
  23.         end;
  24.     for i:= 1 to n do
  25.         write(b[i], ' ');
  26. end.
  27.  
  28.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement