Мальчики помогите

[milaska]

Мальчики помогите пожалуйста с задачкой очень сроочно

Имеется матрица А(4,4),необходимо взять все элементы, лежащие выше побочной диагонали и записать их в одномерный массив В.

и если не сложно мне надо еще тоже самое сделать для главной

пажалуйста я очень на вас надеюсь...

[milaska]

ну неужели это так сложно?у меня контролльная скоро(((

[Новенький]

вот код этой программы:

Код: Выделить всё

uses crt;
var a:array[1..4,1..4]of integer; {матрица}
    b, b2:array[1..6]of integer; {одномерный массив}
    i,j,k:integer; {счетчики}
begin
  clrscr; {очистка экрана}
  randomize; {включение датчика случайных чисел}
  {заполнение матрицы случайными числами и вывод матрицы на экран}
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        begin
          a[i,j]:=random(30);
          write(a[i,j]:3);
        end;
      writeln;
    end;

  k:=1; {счетчик для одномерного массива}
  writeln;
write('выше побочной: ');
  {для побочной диагонали}
  for i:=1 to 4 do
    for j:=1 to 4 do
      if (i+j<5) {если выше побочной диагонали}
      then begin
        b[k]:=a[i,j]; {вносим число в массив}
        write(b[k]:3); {выводим число на экран}
        k:=k+1; {изменяем счетчик по массиву}
      end;

  k:=1;
  writeln;
  write('выше главной: ');
  {для главной диагонали}
  for i:=1 to 4 do
    for j:=1 to 4 do
      if (j-i>0) {если выше главной диагонали}
      then begin
        b2[k]:=a[i,j]; {вносим число в массив}
        write(b2[k]:3); {выводим число на экран}
        k:=k+1; {изменяем счетчик по массиву}
      end;

  readln;
end.