Вершины треугольника заданы координатами. X координаты в строке 9, Y координаты в строке 10. В ячейках А11 и В11 вычислить ссылки на ячейки, соответствующие самой длинной стороне треугольника.
166
433
Ответы на вопрос:
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
Популярно: Информатика
-
natalyacomandi30.09.2020 06:02
-
galeevaazaliyaqwert04.11.2022 02:09
-
mimidoghoz26.03.2021 04:59
-
Asbvd12.06.2021 17:02
-
Nastyxas06.10.2021 01:26
-
ВДРПДАОЦПУЦ24.06.2020 08:35
-
limon02301.05.2021 09:23
-
насьть31.07.2021 09:57
-
ZheniaBabich16.10.2020 03:28
-
Асем121128.02.2023 01:28