Экзамен

[pilot76]

доброго времени суток.
на экзамене по информатике попался такой билет.

Найти минимальное значение цельно численной матрицы m[n,k].
Подсчитать кол-во компонент матрицы m[n,k], совпадающих с минимумом.
Записать в одномерный массив v[q] значения: -1, если сумма индексов минимальной компоненты матрицы m[n,k] нечетным числом, и 1 - если четным числом.
Заменить в матрице m[n,k] минимальные компоненты нулями.
На экран вывести исходную матрицу m[n,k], значения минимума, кол-во минимумов, массив v[q], измененную матрицу m[n,k].
матрица
-5 0 -1 -5
0 -2 -5 3

Вот такой билет попался, я успел сделать тока до массива, а дальше ума нехватка.
Вот что я "наделал" что дальше помогите.

Program zadanie;

Const a:array[1..2, 1..4] of real=
(( -5, 0, -1, -5 ),
( 0, -2, -5, 3 ));
Var min:real;
k,i,j,y,x,z,f:integer;
begin
writeln('Исходная матрица: ');
for i:=1 to 2 do begin
for j:=1 to 4 do begin
write(a[i,j]:6:0)
end;
writeln;
end;
min:=a[1,1];
for i:=1 to 2 do
for j:=1 to 4 do
if min>a[i,j] then min:=a[i,j];
writeln('Минимальный элемент матрицы: ',min:3:0);
k:=0;
for i:=1 to 2 do
for j:=1 to 4 do
if a[i,j]=min then k:=k+1;
writeln('количество минимальных элементов: ',k:3);

write('Для завершения нажмите Enter');
readln;
end;
end.

[Вавел из ГМТУ]

Всёже я думаю что надо написать было: a:array[1..2, 1..4] of Integer...

Вроде как всё почти сделанно.... Кроме:
"Записать в одномерный массив v[q] значения: -1, если сумма индексов минимальной компоненты матрицы m[n,k] нечетным числом, и 1 - если четным числом."

Но тут вроде элементарно.... Так в чём проблема то

[pilot76]

проблема в том что не могу сообразить как записать, вот и прошу помощи.

[puporev]

begin if a[i,j]=min then a[i,j]:=0
else a[i,j]:=0;
Это что?

[pilot76]

Сообщение от puporev

begin if a[i,j]=min then a[i,j]:=0
else a[i,j]:=0;
Это что?

прошу прощения это я лишнее ну удалил, поправлю

[puporev]

Program zadanie;
uses crt;
Const
  n=2;
  k=4;
  a:array[1..n, 1..k] of integer=(( -5, 0, -1, -5 ),
                                    (0, -2, -5, 3 ));
Var min:integer;
    i,j,q:integer;
v:array[1..n*k] of integer;
begin
clrscr;
writeln('Исходная матрица: ');
for i:=1 to n do
 begin
  for j:=1 to k do
  write(a[i,j]:4);
  writeln;
 end;
min:=a[1,1];
for i:=1 to n do
for j:=1 to k do
if min>a[i,j] then min:=a[i,j];
writeln('Минимальный элемент матрицы: ',min);
q:=0;
for i:=1 to n do
for j:=1 to k do
if a[i,j]=min then inc(q);
writeln('количество минимальных элементов=',q);
q:=0;{размер массива пока=0}
for i:=1 to n do
for j:=1 to k do
if a[i,j]=min then{если =мин}
 begin
  inc(q);{увеличиваем размер массива на 1}
  if odd(i+j) then v[q]:=-1{если сумма индексов нечетная(odd)}
  else v[q]:=1;{если четная}
 end;
writeln('Массив V:');
for i:=1 to q do
write(v[i],' ');
writeln;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
  for j:=1 to k do
   begin
    if a[i,j]=min then a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('Для завершения нажмите Enter');
readln
end.

[pilot76]

огромное спасибо! теперь понятно разобрался.