Помогите с решением

Задача на Паскале.

С помощью генератора случайных чисел сформировать матрицу B [M, N], вывести ее. Найти произведение положительных чисел.

Нужно решить без использования левых библиотек, по-проще.

Могу заплатить.

Если устроит после 4 вечера - сделаю..

Устроит)

Ununseptium, http://pascalabc.net/WDE/?file=02851.pas?shared=Dj_Dance/Program1.pas
---
Program M5;
Var B : Array[1..100,1..100] Of Integer;
I, K : Byte;
P : Integer;
M, N : Integer;
Begin
P:=1;
readln(M);
readln(N);
For I:=1 To M Do
Begin
For K:=1 To N Do
Begin
B[I,K]:=Trunc(Random*100)-50;
Write(B[I,K]:6);
If B[I,K] > 0 Then P:=P*B[I,K]
End;
Writeln
End;
Writeln(P)
End.

Изм. 1 раз. / Посл. изм.

initrd (DjDance) [мошенник] 2.52

(14 май 2014, 19:08)

Отлично. Сколько за работу хочешь?

Ununseptium, копейку скинешь для повышения БЛ и истории с крупной личностью типа тебя?

Про историю не совсем понял)

помогите мне тоже плиииииз
Добавлено 14.05.14 в 23:05:54:
http://profiwm.com/forum/thema42473

Не наглей

как скажете, просто я помощи ждал