Предмет: Информатика,
автор: 7539
дан одномерный массив из 10 элементов определите среднее значение стоящих между минимальным и макимальным
Ответы
Автор ответа:
0
program massiv;
var i,n,max,sr,min,pozm,pozx:longint;
a:array[1..10]of longint;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if 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 do
sr:=sr+a[i];
sr:=sr div (pozm-pozx);
writeln(sr);
end.
Интересные вопросы
Предмет: Алгебра,
автор: julijun594
Предмет: Українська література,
автор: lydmylakr
Предмет: Право,
автор: pavel200315
Предмет: Геометрия,
автор: Ukanova
Предмет: Алгебра,
автор: ученица1