програмный модуль

[rosy]

Сгенерировать таблицу 10х13(матрицу, двумерный массив) случайных целых чисел диапазона -10...13. определить количество элементов в каждой строке, лежащих в интервале -2...5.
Реализацию программного модуля связать с элементами управления, например CommandButton.
Помогите я на заочном начитки не было не знаю что делать.

[Stilet]

Модель эт не сложно:

MODULE Матрица;
IMPORT StdLog,ObxRandom;
VAR  a:ARRAY(10) OF ARRAY(13) OF INTEGER;

PROCEDURE ВыводМассива;
VAR i,j,e:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO e:=0;
  FOR j:=0 TO LEN(a[i])-1 DO
    a[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
   IF (a[i,j]<=5)&(a[i,j]>=-1) THEN INC(e); END;
    StdLog.Int(a[i,j]);
    StdLog.Tab;
  END;
    StdLog.Ln;
    StdLog.Int(e);
  StdLog.Ln; 
 END;
END ВыводМассива;


PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN

 StdLog.Clear;
 ВыводМассива;

END do;

END Матрица.
Матрица.do;

Самый что ни на есть модуль.

[rosy]

Сгенерировать таблицу 10х14(матрицу, двумерный массив) случайных целых чисел диапазона -10...14. Определить количество элементов в каждом столбце, лежащих в интервале -2...5.
Реализацию программного модуля связать с элементами управления, например CommandButton.

[Grag]

Могу сделать... Обращайся
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Stilet]

Реализацию программного модуля связать с элементами управления, например CommandButton.

Хм... Описываю
В меню BlackBox'а Controls выбираешь New Form.
Она спросит на чем основать форму, в Link впиши "Матрица" - Появится форма с кнопкой, по которой мой код будет выполняться.

[rosy]

Сгенерировать одномерный массив сл.целых чисел указанного диапазона-10…13 и размера 10 и вставить перед и после максимального элемента в массиве нулевое значение.

Разработать метод для определения количества положительных и отрицательных элементов в массиве. Протестировать его на примере одномерного массива случайных целых чисел указанного диапазона-10…14 и размера 10.