Задание :
Составить программу нахождения наибольшего среди тех элементов одномерного массива А, что лежат в интервале [С, D]
Код программы.
Code
var
x : array[1..100] of integer;
i,n,k,n_ : byte;
c,d : integer;
begin
write('vvedite interval : ');readln(c,d);
write('razmer massiva : ');readln(n);
writeln('vvedite meassiv : ');
for i:=1 to n do
read(x[i]);
max := x[1];
n_ := 1;
for i:=1 to n do
if (max < x[i]) and
(x[i] >= c) and
(x[i] <= d)
then
begin
max := x[i];
n_ := i;
end;
writeln;
writeln('max element : x[',n,']=',max);
end.