В массиве хранится информация о среднедневной температуре за каждый день июля. Определить количество двух самых тёплых дней в этом месяце.
N = 31 c = 1 For b=1 to n If массив(b) > массив(i) then If массив(b) > c then c = a(b) c2 = a(b-1) End if End if Next MsgBox c & " " c2 Написано на VBS
А на Pascal'ьчике не можешь, пожалуйста?
У меня в скриптике получилась ошибочка.. быстро писал.. Время поджимало.. Думаю ты поймёшь её.. А отличае этих языков не очень то большое, операторы те же.. Так что разбирайся
Спасибо большое;)
Видимо я туповат немного.. но не могу соотнести:(