Написать программу, которая находит сумму элементов последовательности из 5 целых чисел. получить новую последовательность путем замены всех ненулевых элементов исходной последовательности на разность между элементом последовательности и найденной суммой.

Program project1; var    a: array[1..5] of integer;     i, j, sum: integer;     s: string; begin  readln(s);   sum: =0;     for i: =1 to 5 do        begin              if (length(s)> =2) then                  begin                      j: =pos(' ', s);                     a[i]: =strtoint(copy(s, 1, j-1));                     sum: =sum+a[i];                     delete(s, 1, j);                   end              else          begin              a[i]: =strtoint(s);               sum: =sum+a[i];           end;   end;       for i: =1 to 5 do          begin              if (a[i]< > 0) then                    begin                        a[i]: =a[i]-sum;                         write(a[i], ' ');                     end              else                begin                      a[i]: =a[i];                       write(a[i], ' ');                 end;           end;   end.

//microsoft (r) c/c++ optimizing compiler version 19.00.23506 for x64 #include < iostream> #include < array> #include < random> #include < algorithm> int main() {     std: : mt19937 gen{ std: : };     std: : uniform_int_distribution< > uid(0, 20);     std: : array< int, 10> a;     std: : generate(a. a. [& uid, & gen]()      { return uid(gen); });     std: : cout < < "our array of numbers: ";       std: : copy(std: : begin(a), std: : end(a),           std: : ostream_iterator< int> (std: : cout, " "));     std: : cout < < std: : endl < < "count of numbers multiple of 5: ";     std: : cout < <             std: : count_if(a. a. [& ](const int & n)            { return ! (n % 5); }); }

ответ:

в современном мире учёные много сделали изобретений для облегчения жизни человека и повышения качества жизни. это всевозможная бытовая техника, различное оборудование, компьютеры, интернет. интернет можно по праву назвать одним из лучших изобретений, так как им в настоящее время пользуется практически каждый человек.

использование интернета может принести пользу, если правильно им пользоваться. например, там много информации и книг, и поэтому можно найти и прочесть любую книгу, даже ту, которой нет в библиотеке или в школе. таким образом интернет полезен для школьников и студентов.

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

объяснение: