Цитата:
Сообщение от Miya
Дан целочисленный массив из 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.