var a: array of integer; b, c: integer; begin writeln('Введите размерность массива'); readln(b); setlength(a, b); writeln('Введите ', b, ' элемента(ов)'); for var i := 0 to b - 1 do begin readln(a[i]); if a[i] < 0 then c := c + a[i]; end; writeln('Сумма отрицательных элементов массива =', c:4); end.
Жили собі два півники.один працьовитий,а другий ледар.колись завелась там лесичка. є перший,а другому всеодно.нічого мені вона не зробить.потім настала ніч.всі позасинали.а крадійка ока не зімкнула,крадеться непомітно до ледаря.цап! біжить перекидається.другий півник за нею.втекла,нічого за мною повернеться.він змайстрував пастку.чує крадеться,в раз і вона у клітці.питає: -де півник? за подвір*ям відпусти мене,а я заберуся звідсіля.побіг півник визволив ледаря й мовив: -ось бачиш ти на печі грівся із бідою стрівся.зрозумів все ледарь і став працьовитим.
Сначала разберёмся с начертаниями. всего возможно 8 вариантов: 1) обычный текст 2) полужирное текст3) курсивное текст4) подчёркнутое текст 5) полужирное + курсивное текст6) полужирное + подчёркнутое текст 7) курсивное + подчёркнутое текст 8) полужирное + курсивное + подчёркнутое текст умножаем эти 8 вариантов на 2 размера и получаем результат: 16 ответ: всего существует 16 различных вариантов форматирования слова «текст»
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма отрицательных=',a.Where(x->x<0).Sum)
end.
Пример
n= 13
99 -16 -23 -94 -91 64 -40 34 -82 -27 -34 -58 48
Сумма отрицательных=-465