<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
20 * 1024 * 8 = 163840 (бит) - первое сообщение
163840/128 = 1280 раз
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.
<u>Пример</u>
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
ЗАДАНИЕ 2
program magazin;
var c,k,p,s:integer;
begin
writeln ('Предельная сумма – ');readln(p);
s:=0;
REPEAT;
writeln('Цена товара – ');readln(c);
writeln('Количество товара – ');readln(k);
s:=s+c*k;
writeln('Стоимость покупки =',s);
UNTIL s>p;
writeln('Не хватает!');
end.
