Question

Pascal ABC. В журнале метеостанции записаны ежедневные температуры воздуха в г. Минске за октябрь (случайные числа от 7 до 15). Найдите количество дней, когда температура достигала максимального значения и даты этих дней

Answer 1

Ответ:

var

 a := ArrRandomInteger(31,7,15);

 i :integer;

begin

 println(a);

 println('Кол-во max= ', a.CountOf(a.Max));

 i:=a.IndexMax;

 while i <= a.LastIndexMax do begin

   if a[i]=a.Max then println(i+1,' октября');

   inc(i)

 end;  

end.