• Сформировать массив с клавиатуры из N элементов (N - описываем как константу). Найти:
    а) произведение.
    б) среднее арифметическое всех нечетных элементов массива.
    в) максимальный элемент массива.
    Выполняем в одной программе.

Ответы 1

  • const n=10;var a:array[1..n] of integer;i,max,p,sr,k:integer;beginp:=1;max:=1;for i:=1 to n do beginread(a[i]);p*=a[i];if odd(a[i]) then begin sr+=a[i]; k+=1; end;if a[i]>a[max] then max:=i;end;write('P=',p,' Sr=',sr/k:3:2,' max=',a[max]);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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