Одномерный и двумерный массив

[alpysya]

Одномерный и двумерный массив

помогите решить задачи =_=
на языке паскаль
1)Дано целое целое число N и набор N ненулевых целых чисел.Вывести в том же порядке номера всех нечетных чисел из данного набора и и количество К таких чисел
2)Дана матрица размерами M*N.Элемент называется локальным минимумом, если он меньше всех окружающих его элементов.Заменить все локальные минимумы даной матрицы на 0.
заране спасибо))

 

[Vladimir_S]

С первой ясельной задачкой разбирайтесь самостоятельно, а вторая - пожалуйста:

Const
 M=8;
 N=16;
Var
 M1,M2:Array[1..M,1..N] of Byte;
 i,j,i1,j1:Integer;
 b:boolean;
Begin
 Randomize;
 For i:=1 to M do
  begin
   For j:=1 to N do
    begin
     M1[i,j]:=Random(255)+1;
     Write(M1[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 M2:=M1;
 For i:=1 to M do
  For j:=1 to N do
   begin
    b:=true;
    i1:=i-2;
    j1:=j-2;
    Repeat
     Inc(i1);
     j1:=j-2;
     If (i1>0) and (i1<=M) then
      Repeat
       Inc(j1);
       If (j1>0) and (j1<=N) then
        If (M1[i1,j1]<=M1[i,j]) and Not((i1=i) and (j1=j)) then b:=false;
      Until (j1=j+1) or Not(b);
    Until (i1=i+1) or Not(b);
    If b then M2[i,j]:=0;
   end;
 For i:=1 to M do
  begin
   For j:=1 to N do
    Write(M2[i,j]:4);
   writeln;
  end;
 Readln;
End.

 

[alpysya]

или у меня не то вычисляет или чтото не так написано =_=
мой изначальный код такой

var a,a2:array[0..11,0..11] of integer;                 
im,jm:array[1..100] of integer;                                              
i,j,i2,j2,n:integer;                                                         
begin                                                                      
for i:=0 to 11 do                                                       
 for j:=0 to 11 do                                                      
 a[i,j]:=100;                                                             
  for i:=1 to 10 do begin                                             
   for j:=1 to 10 do begin                                            
    a[i,j]:=random(9)+1;                                              
  write(a[i,j],'');                                                        
   a2[i,j]:=a[i,j];                                                        
  end;                                                                      
  writeln;                                                                   
  end;                                                                       
 for i:=1 to 10 do                                                         
for j:=1 to 10 do                                                          
   if ((a[i,j]<a[i+1,j]) and (a[i,j]<a[i-1,j]) and(a[i,j]<a[i,j+1]) and(a[i,j]<a[i,j-1])
   then begin            
   inc(i2);                                                                  
   im[i2]:=i;                                                                
   inc(j2);                                                                  
   jm[j2]:=j;                                                                
   end;                                                                        
  n:=i2;                                                                     
  for i:=1 to n do a[im[i],jm[i]]:=0;                                 
  writeln;                                                                   
  for i:=1 to 10 do begin                                               
  for j:=1 to 10 do                                                       
  write(a[i,j],'');                                                          
  writeln;                                                                   
  readln;                                                                    
  end;                                                                       
end.

верен ли этот код?

 

[Vladimir_S]

верен ли этот код?

Уважаемый (-ая) Alpysya, откровенно говоря, ни малейшего желания разбираться с Вашим кодом у меня нет (как у других - не знаю), поскольку ведете Вы себя, мягко говоря, по отношению к нам не этично. Вот если бы Вы с самого начала выложили свой вариант решения и обратились за помощью по отладке - это было бы просто здорово, таким участникам (в отличие от "я в этом не шарю") я помогаю с большим удовольствием. А так - вчера я потратил время на написание и отладку программы, которая, кстати, оказалась не такой простой, как можно было предположить, а сегодня выясняется, что это всё "псу под хвост". Ну что же, если Вы программист - отлаживайте самостоятельно.
Так, на первый взгляд, обращаю внимание, что каждый не граничный по строке или столбцу элемент [i,j] матрицы окружает не 4, а 8 элементов: [i-1,j-1], [i-1,j], [i-1,j+1], [i,j-1], [i,j+1], [i+1,j-1], [i+1,j], [i+1,j+1]. Кроме того, "отбрасывание" элементов первой и последней строк, а также первого и последнего столбцов мне кажется неправомерным.
Впрочем, дело Ваше.

 

[alpysya]

прошу прощения за свое неэтичное поведение
я благодарен вам за ваш труд и ваша программа действительно мне очень помогла
за то что вы потратили время на это.
спасибо вам огромное

 

[Vladimir_S]

ваша программа действительно мне очень помогла

Ну и славно.