Ответы на вопрос:
Const n = 30; var a: array[1..n] of integer; i, s: integer; begin randomize; s : = 0; writeln('исходный массив'); for i : = 1 to n do begin a[i] : = random(100) - 50; write(a[i]: 4); if a[i] > 0 then s : = s + a[i] end; writeln; writeln('сумма положительных элементов равна ', s) end. тестовое решение: исходный массив -17 -8 11 -47 30 -32 18 -15 -36 18 -3 45 11 44 -14 -33 13 -26 -8 -31 -42 45 -9 2 42 48 6 10 -12 27 сумма положительных элементов равна 370
Популярно: Информатика
-
жпжрдмдопнулуу11.04.2020 00:48
-
maksimwwe0071830.01.2021 17:44
-
bloxinilyxa13.12.2020 16:36
-
sev20068425.11.2020 06:18
-
danilox200715.10.2020 01:37
-
omtanya19.01.2021 01:21
-
JasoonVORheeZ19.10.2021 01:52
-
Froxy22.04.2022 00:08
-
Beario22.12.2021 09:01
-
Finzz30.05.2020 07:19