Pascal написать программу, которая в трехзначном числе находит сумму наибольшей и наименьшей цифры

Объяснение:

// Example program

#include <iostream>

#include <string>

int main()

{

   int k[30];

   for(int i = 0; i < 30; i ++) //заполняем случайными числами

       k[i] = rand();

   int min_sum = 999999999;

   int num1, num2;

   for(int i = 0; i < (30 - 1); i ++) //цикл поиска, i меняется от начала

                                      //до предпоследнего элемента, чтобы не выйти

                                      //за пределы при обращении к i + 1 элементу

   {

       int sum = k[i] + k[i+1];//очередная сумма

       if(sum < min_sum) //сравниваем ее с текущим минимумом

       {//если она меньше, то

           min_sum = sum;//обновляем текущую сумму

           num1 = i; num2 = i + 1;//обновляем номер

       }

   }

   //на выходе из цикла в min_sum и num1 и num2 имеем самые минимальные номера

   std::cout << "min_sum = " << min_sum << " nomer1 = " << num1 <<" nomer2 = " << num2;

}

Образец вот в классе делали сумеешь по ниму                                           для записи сообщения использовался 64-х символьный алфавит.каждая страница содержит 30 строк.все сообщение содержит 8775 байтов информации и занимает 6 страниц.сколько символов в строке?                                       ответдля кодирования 1 символа нужно 6 бит

8775 * 8 = 70200 бит занимает сообщение

70200 : 6 = 11700 символов в сообщении

найдем х - количество символов в строке

6 * 30 * х = 11700

180х = 11700

х = 65

ответ. в строке 65 символов.