Массивы

[Ladimira]

Ребята, помогите пожалуйста решить задачки=)
Вариант 1
Вычислить сумму и разность массивов A(20) и B(20). Результат распеча¬тать в виде двух параллельных столбцов.

Вариант2
Выяснить является ли массив A(11) упорядоченным по убыва¬нию.

Вариант 3
Найти матрицу Y(3), равную произведению матриц X(4) и A(4,3).

Вариант 4
В матрице D(6,6) найти произведение элементов, расположенных на главной диагонали и выше нее, причем Dij <> 0. Подсчитать количество элементов Dij = 0.
Спасибо заранее.

[Sazary]

Что не получается? Что непонятно?
Где ваши наработки?
Задачки-то простые.

[Манжосов Денис :)]

2 задача.

program ameba;
var
  a: array [1..10] of byte;
  i: byte;
begin
  Randomize;
  for i := 1 to 10 do
   a[i] := Random(10);
  for i := 2 to 10 do
   if a[i]<a[i-1] then Write(a[i], ' ')
                  else WriteLn('ERROR');
end.