Question

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

Answer 1

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.