Преобразовать формулы в программу Паскаль

#include <iostream>#include <cstdlib>#include <ctime>
using namespace std;
int main(){    srand(static_cast<unsigned int>(time(0)));  //seed random number generator
int secretNumber = rand() % 100 + 1;  // random number between 1 and 100 int tries = 0; int guess;     cout << "\tWelcome to Guess My Number\n\n";
do { cout << "Enter a guess: "; cin >> guess; ++tries;
if (guess > secretNumber) { cout << "Too high!\n\n"; } else if (guess < secretNumber) { cout << "Too low!\n\n"; } else { cout << "\nThat's it! You got it in " << tries << " guesses!\n"; }
} while (guess != secretNumber);
    return 0;}

Смотрим на этот фрагмент кода:
day := 1; m := Dat [1]
нц для k от 2 до 10
  если Dat[k] >= m то
    m := Dat[k]; day := k
  все
кц

Что происходит? Сначала day = 1, m = Dat[day]. Затем в цикле для каждого k сравнивается Dat[k] с m, и если Dat[k] не меньше его, то в day записывается k, а в m - Dat[k]. Значит, после завершения цикла в переменной m будет записано максимальное из всех значений Dat[i], а в day - номер дня, в который в последний раз был достигнут максимум.

Максимальное значение равно 7, в последний раз появилось в Dat[9], поэтому day = 9.

Команда вывод day выводит на экран значение переменной day, которое, как мы уже выяснили, равно 9.

ответ. 9.