какие вы все злые... вот сейчас нам вообще воду отключат..потому что чай кончиться...
Флудодром xVI - Return of the flooders, Вход всем свободный: The saga continues... 10000 posts awaiting...
а чай, это кстати хорошая идея... пойду налью
я сейчас к тебе приду нафиг...у тебя там вчера тепло было... хотя я опять ключи где-то оставила...
а я не могу я ща пто чё пишу...
Program Minimum;
Uses CRT;
Var i, j : Integer;
mas: Array [1..3, 1..5] Of Real;
min: Real;
Begin
For i := 1 To 3 Do
For j := 1 To 5 Do
Begin
ClrScr;
Write ('mas [', i, ',' , j, ']=');
ReadLn (mas [i, j]);
End;
min := mas [1, 1];
For i := 1 To 3 Do
For j := 1 To 5 Do
If mas [i, j] < min Then min := mas [i, j];
WriteLn ('Минимальный элемент = ', min: 7:4);
End.
цикл...
*рыдает и хочет чая...*ужас какой! изверги! нельзя так мучить людей! *пребывает в состоянии праведного гнева*
это не ужас...
это основы...))
ЧАЮ....... хочу..
с лимоном...*размечтался...*эх...если б на дороге не стояло ф-но и если б я переодически открывала глаза, то у нас остался бы чай... опять к соседям идти...
не...это оч просто..
а вот драйвера или скрипты... на них много времени уходит...Цитата Program Minimum;
Uses CRT;
Var i, j : Integer;
mas: Array [1..3, 1..5] Of Real;
min: Real;
Begin
For i := 1 To 3 Do
For j := 1 To 5 Do
Begin
ClrScr;
Write ('mas [', i, ',' , j, ']=');
ReadLn (mas [i, j]);
End;
min := mas [1, 1];
For i := 1 To 3 Do
For j := 1 To 5 Do
If mas [i, j] < min Then min := mas [i, j];
WriteLn ('Минимальный элемент = ', min: 7:4);
End.
Все ж понятноага.. чё тут сложного...
не, ну как вы себя любите)))
кто сказал??
это не недосигаемо это в 9 классе мона выучить...я все равно даже в 9 ниче не пойму, так что бесполезно)))
неправда...
да, и в 10 тоже))
да хватит вам пребеднятся...
не ну я с вас неможу...Х_хя не прибедняюсь)) я совершенно серьезно)))
а что с нами не так? по-моему все нормально... где-то там в глубине сознания))ну ладно предлагаю забить...на мою деятельность в этом проклятом подвале...
притащил доски и забил подвал вместе с Серафом внутри...