# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1): summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N for i in range(1,n): a=int(input("Введите номиналы карточек: ")) summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет print("Потерянная карточка - {}".format(summa_range_i-summaCards))
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
