двумерные массивы, 2 задачки Опции

[Сюзик]

Срочно надо решить задачки, а в двумерных массивах я ничего не понимаю . Если вам не трудно помогите пожалуйста!!!
1.Задан двумеpный массив А из N стpок и М столбцов. Задан одномеpный массив В из тpех злементов. Указать номеpа стpок массива А, в котоpых есть фpагмент элементов, повтоpяющий массив В.
2.Задан двумеpный массив А из N стpок и М столбцов. Отдельно составить матрицу Х из тех строк матрицы А, для которых всякий элемент имеет равного ему соседа слева или справа.

[volvo]

1.

Код

const
 n = 3;
 m = 5;

 (* данные для тестирования
 a =
   1, 2, 3, 4, 5
   2, 3, 4, 5, 6
   3, 4, 5, 6, 7

 b =
   2, 3, 4
 *)

var
 a: array[1 .. n, 1 .. m] of integer;
 b: array[1 .. 3] of integer;

var
 i, j, k, found: integer;
 nextLine: boolean;
begin
 for i := 1 to n do
   for j := 1 to m do
     begin
       write('a[', i, ',', j, '] = ');
       readln(a[i, j])
     end;
 for i := 1 to 3 do
   begin
     write('b[', i, '] = ');
     readln(b[i])
   end;

 for i := 1 to n do
   begin
     j := 1; nextLine := false;
     while (j <= m - 3) and not nextLine do
       begin
         found := 0;
         for k := 1 to 3 do
           inc(found, byte(a[i, j+k-1] = b[k]) );
         if found = 3 then
           begin writeln( 'line: ', i ); nextLine := true end
         else inc(j)
       end;
   end;
end.

Сообщение отредактировано: volvo - 10.12.2004 18:35