Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program VI;
- var
- a : array [1..1000, 1..1000] of integer;
- b: array[1..1000] of integer;
- last, j, i, n : integer;
- begin
- ReadLN(n);
- for i:= 1 to n do begin
- for j:= 1 to n do
- Read(a[i,j]);//считываем массив
- ReadLN();// для переноса строки
- end;
- for j:= 1 to n do
- begin
- last := -1;//обнуляем последнюю позицию четного числа
- for i:= 1 to n do
- if (a[i, j] MOD 2 = 0) then// если текущее число четное
- last := i;//запишем его позицию
- b[j]:= last;//
- end;
- for i:= 1 to n do
- write(b[i], ' ');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement