Пусть в массиве содержатся результаты измерений температуры воздуха - Pascal ABC
Формулировка задачи:
Помогите составлением программы!
Пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца. Определите:
температуры любого из самых холодных и самых теплых дней и поменяйте их местами;
Решение задачи: «Пусть в массиве содержатся результаты измерений температуры воздуха»
textual
Листинг программы
uses crt; const n=31; var a:array[1..n] of integer; i,max,min,imx,imn,x:integer; begin for i:=1 to n do begin write('Введите температуру в ',i,' день декабря ='); readln(a[i]); end; clrscr; writeln('Массив:'); for i:=1 to n do write(a[i]:4); writeln; max:=a[1]; imx:=1; min:=a[1]; imn:=1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imx:=i; end; if a[i]<min then begin min:=a[i]; imn:=i; end; end; writeln('Наибольшая температура=',max,' в ',imx,' день'); writeln('Наименьшая температура=',min,' в ',imn,' день'); x:=a[imn]; a[imn]:=a[imx]; a[imx]:=x; writeln('Обмен минимального и максимального:'); for i:=1 to n do write(a[i]:4); end.
Объяснение кода листинга программы
- Создаётся массив
a
типаarray[1..n] of integer
, гдеn
- это константа, равная 31. - В цикле
for
считываются данные о температуре воздуха для каждого дня декабря. Данные считываются с помощью функцииreadln(a[i])
. - После завершения цикла
for
выводится сообщение с массивомa
. - Затем происходит очистка экрана с помощью функции
clrscr
. - Снова выводится сообщение с массивом
a
. - Инициализируются переменные
max
,min
,imx
иimn
со значениями первого элемента массиваa
. - Запускается цикл
for
, который проходит по всем элементам массиваa
от второго до последнего. - Внутри цикла проверяется, если текущий элемент
a[i]
больше переменнойmax
, то значениеmax
присваивается этому элементу, а индекс этого элемента присваивается переменнойimx
. Также выполняется проверка, если текущий элемент меньше переменнойmin
, то значениеmin
присваивается этому элементу, а индекс этого элемента присваивается переменнойimn
. - После завершения внутреннего цикла
for
выводятся сообщения о наибольшей и наименьшей температуре. - Затем происходит обмен значениями минимального и максимального элементов массива
a
. Для этого значения двух элементов с индексамиimn
иimx
меняются местами. - Выводится сообщение об обмене минимального и максимального элементов.
- Цикл
for
завершается, и программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д