//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
var mas:=ArrRandom(N,-20,20); mas.Println;
writeln('Положительных элементов: ',mas.Count(t->t>0));
writeln('Отрицательных элементов: ',mas.Count(t->t<0));
writeln('Нулевых элементов: ',mas.Count(t->t=0));
end.
<h3>в первом задании выйдет квадрат на две клетки.во втором задании 1-2,2-3,3-1.надеюсь понятно</h3>
ты скажи в каких системах счисления у тебя даны они изначально. А то не понятно, как переводить.
Блок схема, Текст программы и Скриншот работы в приложениях.