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

[Сюзик]

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

[mithquessir]

2.

Код

const
    n = 4;
    m = 4;
    a:array[1..n,1..m] of integer = ((2,2,3,3),(3,3,3,3),(4,4,5,7),(4,4,6,6));

    t:boolean = false;
var
    x:array[1..n,1..m] of integer;
    i,j,k,x_:integer;
begin
    for i := 1 to n do
    begin
         for j := 1 to m do
         if ((a[i,j] = a[i,j+1]) and (j < m)) or ((a[i,j] = a[i,j-1]) and (j > 1)) then
         t := true
         else
         begin
              t := false;
              break;
         end;
         if t then
         begin
              inc(x_);
              for k := 1 to m do
              x[x_,k] := a[i,k];
         end;
    end;
    for i := 1 to x_ do
    begin
         WriteLn;
         for j := 1 to m do
         Write(x[i,j]);
    end;
end.

volvo
Исправь пост, ты первую решал, а написал, что вторую. ;)

Бывает... Спасибо

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