Определить самый холодный день января и дни, когда был мороз

@Owod · Регистрация: 20.01.2014

Студворк — интернет-сервис помощи студентам

Даны показатели температуры воздуха ежедневно января. Определить САМЫЙ ХОЛОДНЫЙ день января и дни, когда БЫЛ мороза. . (+3; +2; +1, 0, -4; -6; -8; -10; -5; -4; -1; +1, 0, -5; -8; -10; -13 ; 18; 20; -17; -14; -10; -5, -1, -1, 0, +2; +1: -2; -4; -6)

@ermolay · 21.01.2014, 03:56

Pascal

const
  count = 31;
  a: array[1..count] of integer =
  ( 3, 2, 1, 0, -4, -6, -8, -10, -5, -4, -1, 1, 0, -5, -8,
   -10, -13, 18, 20, -17, -14, -10, -5, -1, -1, 0, 2, 1, -2, -4, -6);
var
  i, i_min, k: integer;
begin
  i_min:=1; k:=0;
  for i:=1 to count do
  begin
    if a[i] < a[i_min] then i_min := i;
    if a[i] < 0 then inc(k);
  end;
  writeln('Самый холодный день: ',i_min,'-го января, температура: ',a[i_min],' градусов');
  writeln('Морозных дней: ',k);
  readln;
end.

@Owod 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 20
		1
	Определить самый холодный день января и дни, когда был мороз 20.01.2014, 22:55. Показов 3400. Ответов 1 Метки нет (Все метки) Даны показатели температуры воздуха ежедневно января. Определить САМЫЙ ХОЛОДНЫЙ день января и дни, когда БЫЛ мороза. . (+3; +2; +1, 0, -4; -6; -8; -10; -5; -4; -1; +1, 0, -5; -8; -10; -13 ; 18; 20; -17; -14; -10; -5, -1, -1, 0, +2; +1: -2; -4; -6) 0

Опции темы

Определить самый холодный день января и дни, когда был мороз

Решение