Массив: Напечатать те элементы массива, которые находятся между максимальным и минимальным элементами.

@Sillet · Регистрация: 10.06.2019

Author24 — интернет-сервис помощи студентам

Имеется массив a из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Найти максимальное и минимальное числа.Напечатать те элементы массива, которые находятся между ними.
С максимумом и минимумом есть, не могу найти между ними.

Pascal

Program wz431; 
const n=9; 
var min,max:real; 
i:byte; 
a:array[1..n] of integer; 
begin 
a[1]:=5; 
for i:=2 to n do 
begin 
read(a[i]); 
if a[i]>a[i-1] then max:=a[i] 
else if a[i]<a[i-1] then min:=a[i]; 
if (min>a[i]) and (a[i]<max) then writeln(a[i]); 
end; 
writeln('min=',min,'max=',max); 
end.

@JuriiMW · 11.06.2019, 04:28

А почему a[1] = 5?
Почему не 6 или –5?

Pascal

11	if a[i]>a[i-1] then max:=a[i]

А этот кусок кода находит не максимальный в массиве!
К примеру, для массива 5 10 3 1 2 результат будет 2, но не 10…

И, кстати, почему значения массива целые, а min и max действительные?

Или вы чего-то не договариваете по условию?

	11.06.2019, 04:28