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

program p; var      n, i : integer;       max, imax: integer; begin      write('enter 10 numbers ');             for i : = 1 to 10 do      begin            read(n);                         if i = 1 then            begin                  max : = n;                   imax : = i;             end            else                  if n > max then                  begin                        max : = n;                         imax : = i;                   end;       end;             writeln('max = ', max);       writeln('index = ', imax);             readln; end.

C++20

Код:

#include <iostream>#include <iomanip>double frand(double min, double max){    auto f = ((double) rand() / (RAND_MAX));    return min + f * (max - min);}template <typename T, typename Func>void print_arr(T cont, int n, Func printer) {    for (auto x = 0; x < n; ++x) {        printer(x, cont[x]);    }}int main() {    constexpr short n = 17;    constexpr double min = 37.0;    constexpr double max = 38.0;    constexpr int eps = 1;    std::srand(std::time(nullptr));    double t[n];    for (double & x : t) {        x = frand(min, max);    }    auto printer = [](int x, double t){std::cout << 12 + x << " сентября: t = " << std::fixed << std::setprecision(eps) << t << std::endl;};    print_arr(t, n, printer);    return 0;}

Что бы мы делали без интернета? Я уверена, что мы просто стали бы больше обращаться к книгам, ходить в библиотеки, листать газеты и журналы, чтобы найти ответ на нужный вопрос. Мы стали бы гораздо больше разговаривать со знакомыми, а сейчас всю необходимую информацию и новости мы получаем из интернета. Мы наверняка нашли бы время просто поговорить о каких-то интересующих нас вопросах, не стали бы скачивать и смотреть фильмы, а прочитали бы ещё не одну интересную книгу. Наконец, мы стали бы больше обращать внимания на своих близких, ведь они так нужны нам, а мы им. Мы бы выбирались на природу значительно чаще, чем один раз в неделю, каждый день мы бы нашли время для прогулок, любовались бы соседним парком или стайкой слетевшихся птиц. Интернет отнимает у нас гораздо больше времени, чем нам кажется, и мы приобретаем информацию, но теряем своё время. Так мы и жили бы без интернета, ведь у нас появилось бы большое количество времени для себя, для своих близких и просто знакомых.♤♤♤♤♤