Ответы на вопрос:
1) 8 х битов = х байт; 32 кбайт = 32 * 1024 байт; х = 32 * 1024 = 32768 2) 16 х битов = 2 х байт; 128 кбайт = 128 * 1024 байт; х = 128 * 1024 / 2 = 64 * 1024 = 65536
Const n = 30; var a: array[1..n] of integer; i, k, e: integer; begin randomize; writeln('исходный массив'); for i : = 1 to n do begin a[i] : = random(20) - 10; write(a[i]: 4) end; writeln; k : = 0; write('индексы нулевых элементов: '); for i : = 1 to n do if a[i] = 0 then begin k : = k + 1; write(i: 3) end; writeln; writeln('количество нулевых элементов: ', k) end. тестовое решение: исходный массив 8 -8 0 9 -1 0 4 -6 -8 2 4 7 4 -5 4 2 -1 6 -1 5 5 6 -6 -6 -1 -4 0 -7 -8 -3 индексы нулевых элементов: 3 6 27 количество нулевых элементов: 3
Популярно: Информатика
-
Марси66707.06.2023 15:34
-
klemiatoeva14.03.2021 05:08
-
Kotya00520.11.2021 04:28
-
bratdrug27p09mj210.10.2022 21:50
-
TTLoXoIMalchik18.01.2022 23:27
-
m1m2m3m4m57131.07.2021 20:13
-
497716.02.2020 03:55
-
matfeys22.10.2020 02:27
-
NiceBike226.06.2023 04:44
-
ralina2703.10.2021 08:38