• Срочно, задача на одномерные массивы (Pascal ABC).

    Известен рост каждого из 22 учеников класса. Рост мальчиков условно задан отрицательными числами. Определить средний рост мальчиков и средний рост девочек.

Ответы 6

  • если нужны вещественные числа, то надо заменить пару строк
    • Автор:

      airesraug
    • 6 лет назад
    • 0
  • ar:array[1.22] of real;
    • Автор:

      hazel1
    • 6 лет назад
    • 0
  • ms:=ms / m;
    • Автор:

      martha
    • 6 лет назад
    • 0
  • ds:=ds / d;
  • writeln(ms:3:2,' ',ds:3:2);
    • Автор:

      foxy78
    • 6 лет назад
    • 0
  • varar:array[1.22] of integer;ds,ms,i,m,d:integer;beginfor i:=1 to 22 do beginreadln(ar[i]);if ar[i]<0 thenbegin m:=m+1; ms:=ms+ar[i];endelse beginds:=ds+ar[i];d:=d+1end;end;ms:=ms div m;ds:=ds div d;writeln(ms,' ',ds);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years