Задачки с массивами Опции

[Iriska]

Добрый день! Пмогите пожалуйта решить задачки...
1. Дан массив А 7x7, элементы - случайные числа (-30..30). Нужно сформировать из четных и положительных элементов А одномерный массив B.
2. Сформировать и вывести рна экран двумерный массив, используя формулу :
1 3 5 7
3 1 3 5
5 3 1 3
7 5 3 1

Заранее огромное спасибо))

[volvo]

To: Iriska
Ну, первую задачу уже делали:

const n  = 7;
...
for i : = 1 to n do
  for j := 1 to 7 do
    a[i, j] := random(61) - 30;

  index := 0;
  for i := 1 to n do
    for j := 1 to n do
      if not odd(a[i, j]) and (a[i, j] > 0) then begin
        inc(index); b[count] := a[i, j];
      end;

где A - матрица (размером 7 х 7), B - одномерный массив (размером 49)...

Вторая - как-то так:

  for i := 1 to n do
    for j := i to n do begin
      a[i, j] := 2 * (j - i + 1) - 1;
      a[j, i] := a[i, j];
    end;

  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;

[Iriska]

ОГРОМНОЕ СПАСИБО!!!