• в одномерном массиве А(10) вычислить среднее арифметическое положительных элементов

Ответы 1

  • vara:array[1..1000000]of integer;b,i,n,c,k:integer;beginreadln(n);for i:=1 to n doreadln(a[i]);for i:=1 to n doif a[i]>0 then beginc:=c+a[i];k:=k+1;end;write(c/k);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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