PascalABC.

Определить, чему равна максимальная первая цифра n введенных с клавиатуры чисел.

Использовать функцию.

Const nx=20; var i, n, k, z, v, err, max:integer; t, s:string; a:array[1 ... nx] of integer; beginWrite ('Введите число n') ; Read (n) ; Write ('Введите числа') ; for i:=1 to n doRead (a[i]) ; foreach k in a do beginstr (k, s) ; t: = copy (s, 1,1) ; val (t, v, err) ; if max < v then max:=v; end; writeln ('max = ', max) ; end.