Pascal ABC. В журнале метеостанции записаны ежедневные температуры воздуха в г. Минске за октябрь (случайные числа от 7 до 15). Найдите количество дней, когда температура достигала максимального значения и даты этих дней
Ответы на вопрос
Ответил mirageKZ
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.
Новые вопросы
Русский язык,
2 года назад
Алгебра,
7 лет назад
Английский язык,
7 лет назад
Математика,
8 лет назад
Музыка,
8 лет назад