Водится число N, а затем N целых чисел. Необходимо вывести число Нулей, затем Число положительных и отрицательных чисел. Паскаль
8 класс (базовый уровень)

var

 i, chislo, count, c1, c2, c3: integer;

begin

 write('Введите колличество чисел: ');

 read(count);

 writeln('Введите числа: ');

 for i := 1 to count do

 begin

   readln(chislo);

   if chislo = 0 then

     c1 := c1 + 1;

   if chislo > 0 then

     c2 := c2 + 1;

   if chislo < 0 then  

     c3 := c3 + 1;

 end;

 writeln('=0 ', c1);

 writeln('>0 ', c2);

 writeln('<0 ', c3);

end.

PascalABC.NET

begin

 var zeroes, positives, negatives: integer;

 var sqnc := ReadSeqInteger('Вводи: ', ReadInteger('n = '));

 foreach var number in sqnc do begin

   if number > 0 then inc(positives);

   if number = 0 then inc(zeroes);

   if number < 0 then inc(negatives);

 end;

 Println(zeroes, positives, negatives);

end.

Объяснение:

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

периметр треугольника равняется сумме длин всех трех его сторон. он вычисляется по формуле p=a+b+c, в которой a, b и c – это стороны фигуры.