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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

Цитата:

Сообщение от Miya (Сообщение 348056)

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

Код:

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.