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.

Answer 2

Ну как все делают?

Answer 3

понятно, Большое спасибо за умный и нужный ответ

Answer 4

Большое пожалуйста! А Вы думали, я угадаю, что Вы делаете не так, приводящее к некорректной вставке?

Answer 5

Пробуйте разные варианты.

Answer 6

Попробуйте удвоить все переводы строк перед вставкой сюда. Магическим образом это может помочь, один перевод строки пропадет, а второй останется.