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; }
Program zic; var a,b,c,d,e:integer; begin Writeln('Введите 5 чисел'); Readln(a,b,c,d,e); if (a>0) and (b>0) and (c>0) and (d>0) and (e>0) then Write('',Ваши числа положительные) else if a>0 and b>0 and c>0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа e) else if a>0 and b>0 and c>0 and d<0 and e>0 then Write('',Все ваши числа положительные кроме числа d) else if a>0 and b>0 and c<0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа c) else if a>0 and b<0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа b) else if a<0 and b>0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа a) else if a>0 and b>0 and c>0 and d<0 and e<0 then Write('',Все ваши числа положительные кроме числа d и e) else if a>0 and b>0 and c<0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа c и e) else Дальше просто меняеш знаки и числа. Концовка такая if a<0 and b<0 and c<0 and d<0 and e<0 then Write('',Все ваши числа отрицатильные); end. P.s. Все эти с<0 и т.д. поставь в скобки
program name;
const n=5;
var
m:array[1..n] of integer;
i,t:integer;
begin
writeln('Введите ',n,' елементов массива');
for i:=1 to n do readln(m{i});
t:=m{1};
for i:=2 to n do t:=t*m{i};
write('вывод массива: ');
for i:=1 to n do write(m{i},' ');
writeln(#13#10,'Результат произведения элементов массива: ',t);
readln;
end.
фигурные скобки замени на квадратые