Вопрос по информатике:
ДАЮ 100! Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.
Записать все подробно.
Пожаловаться
- 25.02.2018 05:54
- Информатика
- remove_red_eye 12257
- thumb_up 37
Ответы и объяснения 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
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
Пожаловаться
- 27.02.2018 00:21
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы