Ответы на вопрос:
13. 1 var a: array [1.. 100] of integer; k,i: integer; begin for i: = 1 to 12 do readln(a[i]); k: =0; for i: = 1 to 12 do if a[i] < 0 then k: =k+a[i]; writeln(k); end.
Популярно: Информатика
-
gtgcfgsg656718.12.2021 21:16
-
falala112.05.2022 00:15
-
beka986726.07.2021 18:53
-
dias20062014.10.2022 18:11
-
ЧернаяРадуга09.11.2020 05:08
-
Lolkekcheburecks12.05.2021 22:55
-
АндрейZAV16.09.2020 08:41
-
vitalikobukhov28.03.2022 00:45
-
daniil609200225.12.2020 06:28
-
Рабка08.09.2020 02:57