//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2
10
префиксное свойство - один код не может быть префиксом другого, значит (в данной задаче) не может начинаться с 00, 01, 11.
значит первые две цифры = 10. других нет, так как минимальный надо, а вероятности не заданы.
Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части
Ответ:
Объяснение:
var i:integer;
begin
for i:=1 to 30 do begin
if i mod 2 = 0 then begin
writeln('*');
end
else
writeln(i);
end;
end.