Программа нахождения вывода максимальной температуры

[Miya]

Программа нахождения вывода максимальной температуры

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -20 до 20 — сведения о температуре за каждый день ноября. Написать программу, которая находит и выводит максимальную температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы в один день ноября была отрицательная температура.

 

[Vladimir_S]

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -20 до 20 — сведения о температуре за каждый день ноября. Написать программу, которая находит и выводит максимальную температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы в один день ноября была отрицательная температура.

Да пожалуйста:

Const
 N=30;
VAR
 A:ARRAY[1..N] of INTEGER;
 i,Max:INTEGER;
BEGIN
 RANDOMIZE;
 WriteLn('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=RANDOM(40)-20;
   Write(A[i]:4);
  end;
 WriteLn;
 Max:=-30;
 For i:=1 to N do
  If (A[i]<0) and (A[i]>Max) then Max:=A[i];
 Writeln('The highest temperature of frosty days was ', Max);
 ReadLn;
END.