• 20 November 2013
    • Химия
    • Автор: Юссся

    Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носить массива произвольнаЯ


    • 20 November 2013
    • Ответ оставил: Ника1341

    Var
      a : array [1..1000] of integer;
      i, n, z, p, m : integer;
    begin
      i := 0;
      while not eoln do
      begin
        read (z);
        inc (i);
        a[i] := z;
       end;
      m:= i; n:=0; z:=0; p:= 0; 
      for i := 1 to m do 
        if i mod 2 = 0 then
        begin
          if a[i] < = then inc (n) 
          else if a[i] > 0 then inc (p)
          else inc (z);
        end;
     writeln (n, ' ', z, ' ', p);
    end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы

Ответ на вопрос Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носить массива произвольнаЯ - Вопросов.Нет

404