Определите, какой из нижеперечисленных масок имён удовле- творяет имя файла: concatenation.dat ? 1)c? nat*io*.? a? 2) *a? e? *? a*a* 3) *cat? en* 4) ? o*a? *? i*t

Pascalabc.net 3.4.2, сборка 1859 от 08.11.2018 внимание! если программа не работает, обновите версию!

procedure ввод(a: array of string);

begin

  for var i : = 0 to a.high do

    a[i] : = readlnstring;

end;

procedure вывод(a: array of string);

begin

  a.printlines

end;

function сумма(a: array of string): integer;

begin

  result : = a.select(t -> t.tointeger).sum;

end;

begin

  var n : = readlninteger('укажите общее количество строк: ');

  var a : = new string[n];

  ввод(a);

  вывод(a);

  println('сумма равна', сумма(a))

end.

using system;

namespace app {

    internal class program {

        private static void main() {

            console.write("введите количество элементов массива: ");

            var a = new int[convert.toint32(console.;

            console.writeline("\nвведите элементы массива: ");

            for (var i = 0; i < a.length; i++) {

                console.write($"элемент номер {i} = ");

                a[i] = convert.toint32(console.;

            }

            // используется foreach вместо for потому что это стандартный инструмент для перебора которого нет в паскале

            console.writeline("\nисходный массив: ");

            foreach (var element in a) {

                console.write($"{element} ");

            }

            var max = a[0];

            foreach (var element in a) {

                if (element > max) max = element;

            }

            console.writeline($"\nmaximum={max}");

            // убрана ненужная переменная

            foreach (var element in a) {

                console.writeline($"отклонение={max - element}");

            }

            console.readkey();

        }

    }

}