Ответы на вопрос:
// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',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
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.вроде так
чел, ты...
a = int(input())
b = int(input())
c = a
a = b
b = c
print(a)
print(b)
Популярно: Информатика
-
sashabelousoydf1w25.07.2022 15:29
-
bushukova16bk04.10.2020 04:33
-
nikolesmit27.12.2021 12:02
-
JeepandChira1317.03.2020 18:30
-
vlad144623.01.2022 07:06
-
dikiyparker16.08.2022 02:22
-
asmolova228.02.2020 23:52
-
ilyadengin17.09.2021 10:37
-
alexeyvinogradp0do9x22.05.2020 19:24
-
яqwertyuiop12314.06.2021 12:15