Броят на четните и сумата на нечетните от N числа

Да се въведат N числа и да се изведе броят на положителните четни и сумата на положителните нечетни.

Публикувано в с етикети . Постоянна връзка.

One Response to Броят на четните и сумата на нечетните от N числа

  1. kaloyan каза:
    VAR chislo,i,broi,broi_chetni,suma : integer;
    BEGIN
    broi_chetni:=0;
    suma:=0;
      write('kolko chisla 6te vavejdate: '); readln(broi);
      for i:=1 to broi do
        begin
          write('vavedi chislo: '); readln(chislo);
            if (((chislo mod 2)=0) and (chislo>0)) then broi_chetni:=broi_chetni+1
              else
            if (((chislo mod 2)<>0) and (chislo>0)) then suma:=suma+chislo;
        end;
      writeln('broqt polojitelni chetni chisla e ',broi_chetni);
      writeln('sumata na polojitelnite nechetnite e ',suma);
    readln;
    END.    
    

Вашият коментар