Частично и часто...спасибо за внимание.
Под буквой Б, я это вчера сделал
var a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
if i mod 2 = 0 then A[i] :=i * 2
else A[i] :=0;
write (a[i]:3)
end
end.
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
Только один человек удовлетворяет удовлетворяет все условия
Номер 5