function SumDig(a: Vector): integer; var i, m, d, s, max: integer; begin s := 0; for i := 1 to n do begin m := a[i]; max := -1; repeat d := (m mod 10); if max < d then max := d; m := m div 10 until m = 0; s := s + max end; SumDig := s end;
var i: integer; M: Vector;
begin Writeln('Введите ', n, ' чисел:'); for i := 1 to n do Read(M[i]); Writeln('Сумма максимальных цифр всех чисел равна ', SumDig(M)) end.
Тестовое решение: Введите 10 чисел: 613 269 839 10 575 569 812 56 401 616 Сумма максимальных цифр всех чисел равна 65
var T: array[1..n + 1] of integer; i, j, k: integer;
begin Writeln('Введите ', n, ' элементов массива'); for i := 1 to n do Read(T[i]); Write('Укажите индекс числа и само число для вставки: '); Readln(j, k); for i := n downto j do T[i + 1] := T[i]; T[j] := k; Writeln('Результирующий массив:'); for i := 1 to n + 1 do Write(T[i], ' ') end.
Тестовое решение: Введите 10 элементов массива -5 3 12 81 35 0 43 92 -23 53 Укажите индекс числа и само число для вставки: 4 777 Результирующий массив: -5 3 12 777 81 35 0 43 92 -23 53
