Напишите программу в 1 номер 6 и 7

#include <iostream>
#include <list>

using namespace std;

int main() {
    list<int>mylist;
    //Делаем со списком, что хотим
    mylist.push_back(1);
    mylist.push_back(2);
    mylist.push_back(3);
    mylist.push_back(-4);
    mylist.push_back(5);
    for (auto i : mylist) {
        cout << i << " ";
    }
    cout << "\n";
    //Удаляем последний отрицательный элемент
    auto it = mylist.end();
    while (*it > 0) {
        if (it == mylist.begin()) {
            cout << "Not found.\n";
            return 0;
        }
        it--;
    }
    //Делаем со списком, что хотим
    mylist.erase(it);
    for (auto i : mylist){
        cout << i << " ";
    }
    return 0;
}

Всё напишу в объяснении.

Объяснение:

1) Program Ex1;

var

 n, a, i, sum : integer;

begin

 sum := 0; // обнуляем счетчик суммирования

 read(n);  // вводим кол-во чисел

 for i := 0 to n do

   begin

   read(a); // считываем эти числа

   if (a mod 5 = 0) then sum := sum + a; // если число кратно 5, то добавляем его к сумме

   end;

 writeln(sum); // выводим сумму.

end.

2) Program Ex2;

var

 n, a, i, min: integer;

begin

 min := 30000;

 read(n);  // вводим кол-во чисел

 for i := 0 to n do

   begin

   read(a); // считываем эти числа

   if ((a mod 10 = 4) and (a < min)) then min := a; // ищем минимум

   end;

 writeln(min); // выводим минимум

end.