Delphi, матрица, массив…

[Мага]

Подскажите плиз как решить задачки в Delphi, пытаюсь, пытаюсь и никак не выходит
1.Сформировать случайным образом одномерный массив и найти среднее арифметическое отрицательных элементов массива. Вывести массив и найденное значение.
2. Сформировать случайным образом матрицу размером 4×4 с числами из диапазона [-20;30]. Определить является ли целочисленная матрица симметричной относительно побочной диагонали. Вывести исходную матрицу и результат: «симметрична» - «не симметрична».
3. Создать положение по учету Материнских плат. Вводится: производитель, модель, наличие встроенной звуковой карты. Вывести все модели со встроенными / без встроенных (по выбору пользователя) звуковых карт. Использовать записи.

[Sm1Le]

Покажите пожалуйста то что Вы питаетесь ?! =)))

1)

arr[10]:integer;
x,sum:integer;

for i:=1 to 10 do 
 begin
  arr[i]:=random(100);
 end;
for i:=1 to 10 do 
 begin
  if arr[i]<0 then 
   sum:=sum+arr[i];
   x:=x+1;
 end;
for i:=1 to 10 do 
Form1.edit1.text:=Form1.Edit1.text+IntTostr(arr[i]);
Form1.Edit2.text:=FloatToStr(sum/x);

[Sm1Le]

2)

for i:=1 to 4 do 
begin
 for j:=1 to 4 do 
  begin
      arr[i,j]:=random(20)*(-1)+random(10);
  end;
end;

{simm:boolean;}
simm:=true;
while simm do 
begin
 for i:=1 to 4 do 
begin
 for j:=1 to 4 do 
  begin
      if arr[i,j]<>arr[5-j,5-i] then 
       simm:=fasle;
  end;
end;

end;

Откорректируйте - и будет то что вам надо ... =))

[Serge_Bliznykov]

образом матрицу размером 4Ч4 с числами из диапазона [-20;30].

arr[i,j]:=random(20)*(-1)+random(10);

к сожалению, это ошибка. Так нужный диапазон случ.чисел не получить!
а нужно так:

arr[i,j] := Random(51)-20;