Turbo Pascal : массивы

[ARAGON]

курс доллара в течение года менялся в диапазоне от 28руб. до 30руб.
Найти наибольшее значение курса доллара.В качестве результата вывести номер месяца и значение курса доллара

[ARAGON]

эх я пропал никто не отвечает

[Serebro]

Сообщение от ARAGON

курс доллара в течение года менялся в диапазоне от 28руб. до 30руб.
Найти наибольшее значение курса доллара.В качестве результата вывести номер месяца и значение курса доллара

Обычный поиск максимального значения в массиве.
Ничего сложного.

[Gray_Jagger]

номер месяца - индекс наибольшего элемента, значение - наибольший элемент. вот пример поиска:

max:=-100000; {делаем явно заниженным}
for i:=1 to k do
 begin
  if max<a[i] then (max:=a[i]) and (p:=i);      {Определяем максимум}
 end;

[ARAGON]

спасибо большое )