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

Miya · 16.06.2010, 15:35

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

Vladimir_S · 16.06.2010, 16:38

Цитата:

Сообщение от 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.

16.06.2010, 15:35	#1 (permalink)
Miya Новичок Регистрация: 16.06.2010 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа нахождения вывода максимальной температуры Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -20 до 20 — сведения о температуре за каждый день ноября. Написать программу, которая находит и выводит максимальную температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы в один день ноября была отрицательная температура.

16.06.2010, 15:35
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные топики могут просветить решение проблемы Программа для определения температуры всей системы Методы нахождения корня на паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070