Реферат: Лабораторная работа №11

read(stroka[i]);

for i:=1 to xmax do

writeln(stroka[i]);

for i:=1 to xmax do

codes[i]:=ord(stroka[i]);

for i:=1 to xmax do

writeln(codes[i]);

max:=codes[1];

for i:=1 to xmax do

begin

if max < codes[i]

then

max:=codes[i]

end;

writeln('максимальное значение литера в списке=',max:3:0)

end.

Блок-схема.

Министерство образования РФ

Рязанская государственная радиотехническая академия

Кафедра ВПМ

Отчет о

лабораторной работе № 11:

«Обработка массивов данных»

Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Новичков В.С.