Регистрация
tete12
26.05.2023 17:12
Информатика
Есть ответ 👍

Измерение температуры Девочка Грета занимается исследованиями в области глобального потепления. Г рета замеряла температуру на улице в течение N
дней. Теперь ей интересна следующая статистика: для каждой температуры в интервале [−;]
[
−
T
;
T
]
узнать номера дней, в которые держалась данная температура.

Входные данные

В первой строке входных данных содержатся два натуральных числа:
T
и
N
(≤60
T
≤
60
, ≤1000
N
≤
1000
). В следующей строке содержатся
N
целых чисел, по модулю не превосходящих 100
100
— измерение температуры в каждый из дней. Дни нумеруются с единицы.

Выходные данные

Выведите 2+1
2
T
+
1
строк. Каждая строка должна содержать данные о днях, в которые держалась данная температура. Используйте формат вывода в соответствии с примером. Температуры необходимо выводить в порядке от меньшей к большей. Дни для каждой температуры необходимо выводить в порядке возрастания.

Примеры
Ввод 1
5 10
2 -6 0 4 4 0 -4 -5 -3 2
Вывод
-5: 8
-4: 7
-3: 9
-2:
-1:
0: 3 6
1:
2: 1 10
3:
4: 4 5
5:

216
281
Посмотреть ответы 1

Ответы на вопрос:

Artem0317q
Artem0317q
4,8(8 оценок)
Var  i,j,n,k: integer;     a: array [1..100] of integer; begin assign (input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln (n); for i: =1 to n do read(a[i]); for i: =1 to n do  for j: =1 to n-i do   if a[j+1]> a[j] then begin k: =a[j]; a[j]: =a[j+1]; a[j+1]: =k; end; for i: =1 to n do write (a[i],' '); end. входные данные писать в файл input.txt в формате: na[i] a[i+1] a[i+.

Популярно: Информатика