• дан одномерный массив из 10 элементов определите среднее значение стоящих между минимальным и макимальным

Ответы 1

  • program massiv;var i,n,max,sr,min,pozm,pozx:longint;a:array[1..10]of longint;beginfor i:=1 to 10 doread(a[i]);for i:=1 to 10 dobeginif a[i]>max then begin max:=a[i]; pozm:=i; end;if a[i]<min then begin max:=a[i]; pozx:=i; end;end;for i:= pozx+1 to pozm-1 dosr:=sr+a[i];sr:=sr div (pozm-pozx);writeln(sr);end.

  • Добавить свой ответ

Войти через Google

или

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

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

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