Для 16 голов скота на 36 дней требуется 1,92 т сухой подстилки. Сколько сухой подстилки требуется для 20 голов скота на 40 дней?
247
323
Ответы на вопрос:
Для 16 голов скота на 36 дней требуется 1,92 т сухой подстилки. Сколько сухой подстилки требуется для 20 голов скота на 40 дней?
USES Crt;
VAR
MAS: ARRAY[1..12] OF REAL;
I: INTEGER; MIN,MAX:REAL;
BEGIN
ClrScr;
{ Заполнение массива с клавиатуры }
FOR I:=1 TO 12 DO Begin
Write(' Введите среднюю температуру за ',I,' месяц '); ReadLn(MAS[I]);
End;
MAX:=MAS[6]; MIN:=MAS[12];
{ Определение самой высокой температуры летом }
FOR I:=7 TO 8 DO
IF MAX<MAS[I] THEN MAX:=MAS[I];
{ Определение самой низкой температуры зимой }
FOR I:=1 TO 2 DO
IF MIN>MAS[I] THEN MIN:=MAS[I];
WriteLn(' Самая высокая температура летом ',MAX);
WriteLn(' Самая низкая температура зимой ',MIN);
END.
VAR
MAS: ARRAY[1..12] OF REAL;
I: INTEGER; MIN,MAX:REAL;
BEGIN
ClrScr;
{ Заполнение массива с клавиатуры }
FOR I:=1 TO 12 DO Begin
Write(' Введите среднюю температуру за ',I,' месяц '); ReadLn(MAS[I]);
End;
MAX:=MAS[6]; MIN:=MAS[12];
{ Определение самой высокой температуры летом }
FOR I:=7 TO 8 DO
IF MAX<MAS[I] THEN MAX:=MAS[I];
{ Определение самой низкой температуры зимой }
FOR I:=1 TO 2 DO
IF MIN>MAS[I] THEN MIN:=MAS[I];
WriteLn(' Самая высокая температура летом ',MAX);
WriteLn(' Самая низкая температура зимой ',MIN);
END.
Популярно: Другие предметы
-
aminazhum12.08.2020 08:31
-
dashden35410.08.2022 02:25
-
виктория133223.12.2021 01:23
-
Maskimilian77130.11.2020 10:51
-
mstrager234226.02.2021 10:56
-
guzhowa6628.04.2020 19:30
-
Микарусский03.10.2021 22:23
-
Никто50523.03.2021 00:28
-
missiskitten09.02.2023 03:27
-
111ВсЕзНаЙкА11128.07.2020 04:16