Паскаль. Программа обработки массива

[joker131295]

Паскаль. Программа обработки массива

ребят помогите пожалуйста я болел и в больнице лежал а тему я не знаю через два дня уже сдавать.Решите задачу пожалуйста=)
"Составьте программу нахождения наибольшего среди тех элементов одномерного массива A(N) ,что лежат в интервале (C,D)"=)

 

[Vladimir_S]

ребят помогите пожалуйста я болел и в больнице лежал а тему я не знаю через два дня уже сдавать.Решите задачу пожалуйста=)
"Составьте программу нахождения наибольшего среди тех элементов одномерного массива A(N) ,что лежат в интервале (C,D)"=)

Ладно, живите:

CONST
 N=20;
VAR
 A:ARRAY[1..N] of Real;
 i,Imax:Integer;
 Max,C,D:Real;
BEGIN
 Write('C (>-10 and <89) = ');
 Readln(C);
 Write('D (>C   and <90) = ');
 Readln(D);
 Writeln;
 Randomize;
 Max:=-100;
 For i:=1 to N do
  begin
   A[i]:=100*Random-10;
   Write(A[i]:8:3);
   If (A[i]>Max) and (A[i]>C) and (A[i]<D) then
    begin
     Max:=A[i];
     Imax:=i;
    end;
  end;
 Writeln;
 Writeln;
 Writeln('Number of maximal element is ',Imax,', value= ',Max:7:3);
 Readln
END.