ДАЮ 100! Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.

Записать все подробно.

Var s:string;

a:array[1 ... 255] of integer;

l, max, i:integer;

begin

writeln ('Введите предложение:') ;

readln (s) ;

l:=length (s) ;

max:=0;

for i:=1 to l do

begin

a[i]:=OrdAnsi (s[i]) ;

/ / function OrdAnsi (a: char) : byte;

/ / Преобразует символ в код в кодировке Windows if a[i]>max then max:=a[i];

end;

for i:=1 to l do write (a[i],' ') ;

writeln;

writeln ('max = ', max) ;

end.

Пример:

Введите предложение:

Primer пример.

80 114 105 109 101 114 32 239 240 232 236 229 240 46

max = 240