Составьте программу вычисления...

Тема в разделе "Информатика", создана пользователем olle, 11 янв 2010.

  1. olle

    olle New Member

    Составьте программу вычисления среднего арифметического отрицательныхэлементов.
     
    olle, 11 янв 2010
    #1
  2. Мышка

    Мышка New Member

    Var a, b, z, i: integer;
    begin
     readln(a);
     if (a < 0) then
     begin
    z := z + a;
    i := i+1;
    end;
     readln(b);
     if (b < 0) then
     begin
    z := z + b;
    i := i+1;
    end;
    if (i > 0) then 
    writeln(z/i);
    end.
     
    Мышка, 11 янв 2010
    #2

Поделиться этой страницей

Наша группа