Question

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

Answer 1

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