Ваші батьки звернулися до вас із проханням створити для них макети візитки. Опрацюйте самостійно матеріал, присвячений видам, вимогам до оформлення візитки. Знаючи рід занять, власні атрибути батька та матері, створіть засобами текстового редактора макети візиток. Розмір візитки — 90×50 мм. Розмістіть потрібну кількість копій на аркуші документа.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив 9x6 ***');
var a:=MatrRandom(9,6,-50,50); a.Println(4);
Writeln(4*a.ColCount*'-');
var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count;
var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count;
Writeln(kn,' отрицательных, ',kp,' положительных')
end.
Пример
*** Исходный массив 9x6 ***
-47 37 23 -34 -33 0
-17 -5 13 -9 0 -46
-41 31 41 -30 -24 49
39 50 13 4 19 14
-17 -12 -24 22 -9 -44
-27 17 -44 -35 -4 32
26 -5 49 -7 -28 -25
-15 -9 13 25 -26 -29
-40 -24 -4 50 33 -45
31 отрицательных, 21 положительных