Составить блок схему к задаче : Дано натуральное число: сколько раз вторая (слева) цифра встречается в данном числе.
168
437
Ответы на вопрос:
Const nn = 50; var a: array[1..nn] of integer; b: array[1..10] of integer; { для номеров минимальных четных } n, i, km, min, max, t1, t2: integer; begin randomize; write('укажите количество элементов массива (не более 50): '); readln(n); writeln('исходный массив'); for i : = 1 to n do begin a[i] : = random(76) - 43; write(a[i]: 4); end; writeln; writeln('1. массив со сдвинутыми влево на 2 элементами'); t1 : = a[1]; t2 : = a[2]; for i : = 1 to n - 2 do begin a[i] : = a[i + 2]; write(a[i]: 4); end; a[n - 1] : = t1; a[n] : = t2; writeln(a[n - 1]: 4, a[n]: 4); writeln('2. минимальные четные элементы массива'); min : = 100; for i : = 1 to n do if (i mod 2 = 0) then if min > a[i] then begin min : = a[i]; km : = 1; b[km] : = i end else if min = a[i] then begin km : = km + 1; b[km] : = i end; write('значение: ', min, ', индексы: '); for i : = 1 to km do write(b[i]: 3); writeln; writeln('3. поменять местами максимальный и последний элементы массива'); max : = -100; for i : = 1 to n do if max < a[i] then begin max : = a[i]; b[1] : = i end; t1 : = a[b[1]]; a[b[1]] : = a[n]; a[n] : = t1; for i : = 1 to n do write(a[i]: 4); writeln; writeln('4. найти среднее арифметическое элементов массива'); t1 : = 0; for i : = 1 to n do t1 : = t1 + a[i]; writeln('среднее арифметическое равно ', t1 / n) end. тестовое решение: укажите количество элементов массива (не более 50): 30 исходный массив 31 -41 -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 1. массив со сдвинутыми влево на 2 элементами -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 31 -41 2. минимальные четные элементы массива значение: -43, индексы: 10 24 3. поменять местами максимальный и последний элементы массива -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 -41 31 4. найти среднее арифметическое элементов массива среднее арифметическое равно -5.4
Популярно: Информатика
-
Tanya20040426.08.2020 05:24
-
викториасн28.12.2021 17:26
-
Nastasia887917.09.2021 21:39
-
мама103511.03.2022 21:10
-
1234557882482801.02.2021 01:10
-
AlinaLove20041324.04.2023 18:30
-
Anastasiya1237719.08.2022 09:31
-
olegl12303.05.2021 20:52
-
ник489116.09.2020 21:53
-
Bohdanka99914.06.2021 09:07