Задача на Паскале.
С помощью генератора случайных чисел сформировать матрицу 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.
Отлично. Сколько за работу хочешь?
Ununseptium, копейку скинешь для повышения БЛ и истории с крупной личностью типа тебя?
Про историю не совсем понял)
помогите мне тоже плиииииз
Добавлено 14.05.14 в 23:05:54:
http://profiwm.com/forum/thema42473
как скажете, просто я помощи ждал