Помогите зделать 4 задачки на масивы до утра!!!!

[capta1n]

goblinyara - ничего плохого не имею в виду, но у вас открытый массив, а не динамический

[goblinyara]

хмммм.... ну тогда вот чистая динамика

program Project1;
const
      MaxInt = sizeof(integer);
      m=10;
      n=20;
type
  TIntArray = array[1..MaxInt] of integer;
  PIntArray = ^TIntArray;

var a: array[1..m,1..n] of integer;
    b,c: PIntArray;
    i,j,k1,k2: Integer;
begin
  GetMem(B, N * sizeof(integer));
  GetMem(C, N * sizeof(integer));
  k1:=0;
  k2:=0;
  for I := 1 to m do
    for j := 1 to n do
      a[i,j]:=random(10);
  for i := 1 to m do
    for j := 1 to n do
      if (j mod 2 =0) then
        begin
          inc(k1);
          b[k1]:=a[i,j];
        end
        else
        begin
          inc(k2);
          c[k2]:=a[i,j];
        end;
  FreeMem(B);
  FreeMem(C);
end.

а массив А не сказан динамическим

[Straider82]

Господа помогите плиз????

1)В массиве слов найти пару слов,из которых одно является обращением другого......... как делать на паскале не знаю

[Straider82]

Господа помогите плиз????

1)В массиве слов найти пару слов,из которых одно является обращением другого......... как делать на паскале не знаю