ДАЮ 100! Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.
Записать все подробно.
Записать все подробно.
More Questions From This User See All
Answers & Comments
Verified answer
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