делфи 7 (массивы)

[mirgen]

заполнить массив случайными числами размерностью 5 на 5 вывести в таблицу .подсчитать количество положительных, отрицательных , четных ,не четных чисел и результат вывести в поле Мемо.

[Serge_Bliznykov]

задача наипростейшая!
что именно у Вас не получается?
Не знаете, как массив объявляется? или как его заполнить? Или как в Delphi\Pascal получить случайное число? Или как посчитать количество определённых значений в массиве? или как полученное число вывести в мемо?
в чём проблема?!

[mirgen]

я вроде как сделал массив со случайными числами вывожу в поле мемо а теперь не знаю как подсчитать количество четных и не четных чисел !

[phomm]

Циклы проходили ? А условный оператор ?
вот как раз циклами пробегаем по массиву подряд и условным оператором, с условиями нужными Вам - >0 ; <0 ; число mod 2=0; число mod <> 0 и ведёте подсчёт в переменные.

[mirgen]

да проходили только я не чего не понял. вы можете полностью описать процедуру подсчитывания? или же процедуру по которой при нажатии на кнопку программа выводила четные и не четные числа !

[Mad_Cat]

можем
<--контакты там
За недорого

[Serge_Bliznykov]

да проходили только я не чего не понял. вы можете полностью описать процедуру подсчитывания?

Ну Вы же утверждаете, что у Вас есть цикл, который выводит все элементы в Мемо? Есть такой?

вот, в него и пишете

Kolvo_Polojitelnyh := 0; {обнулим счётчик положительных чисел}
Kolvo_Nulevyh := 0; {обнулим счётчик нулевых чисел}
Kolvo_Otricatelnyh := 0; {обнулим счётчик отрицательных чисел}
тут ваш цикл по i
  тут ваш цикл по j
     if A[i,j]> 0 then Inc(Kolvo_Polojitelnyh)
     else 
       if A[i,j]= 0 then Inc(Kolvo_Nulevyh)
       else Inc(Kolvo_Otricatelnyh);

всё. Это ВСЁ! Подсчёт сделан.

или же процедуру по которой при нажатии на кнопку программа выводила четные и не четные числа !

Ну Вы же утверждаете, что у Вас есть цикл, который выводит все элементы в Мемо? Есть такой?

вот, в него и пишете

тут ваш цикл по i
  тут ваш цикл по j
     if odd( A[i,j] ) then {если нечётное число, то}
           {выводим число в мемо1}
          Memo1.Lines.Append( IntToStr( A[i,j]);

для чётных чисел условие if not odd(A[i,j] then
всё. вывод сделан.