Системы управления базами данных: назначения ,структура, взаимодействие с БД,представители
184
496
Ответы на вопрос:
Const n = 20; var x: array[1..n] of integer; i, s: integer; begin randomize; s : = 0; write('элементы массива: '); for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 5); if x[i] > = 0 then s : = s + sqr(x[i]) end; writeln(#13#10, 'сумма квадратов неотрицательных элементов равна ', s) end. тестовое решение: элементы массива: -29 1 -36 50 -29 31 4 28 -25 -1 17 -45 -48 -19 -49 -49 -30 -22 8 18 сумма квадратов неотрицательных элементов равна 4939
Популярно: Информатика
-
skrrrpapa04.02.2021 21:03
-
dinok325.06.2021 13:08
-
keke71707.04.2023 11:41
-
soldiertoy0105.07.2020 08:24
-
romanowacristi11.01.2022 20:08
-
sab1na66612.02.2020 01:45
-
Сонякака33230.04.2020 01:27
-
ритуля5102.05.2022 06:24
-
mafa09109.02.2022 14:31
-
Dooolche22.11.2021 00:27