1. Max - это системная функция/ Не стоит называть таким именем свою.
2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать m:=a.max; и ВСЁ. Но если хотите как на Pascal - Я исправил.
3. Функция ищет максимальное значение в массиве.
Pascal
var
maxa:integer;
procedure Getmax(c:integer; var m:integer);
var
i:integer;
a: array [1..100] of integer;
begin
for i:=1 to c do begin
a[i]:= random (20);
write(a[i],' ');
if m<a[i] then
m:=a[i];
end;
writeln;
end;
begin
Getmax(100,maxa);
writeln('Max=', maxa);
end.
Зашифровано
ВЫПОЛНИТЕ НОВОЕ ЗАДАНИЕ
Объяснение:
Берём таблицу Виженера для кириллицы с 33 буквами.
Берём зашифрованную фразу и над каждой её буквой, исключая пробелы записываем повторяющуюся ключевое слово
школашкол ашкол ашколаш
ъёюълёубр нжмэр зшоощиэ
Получаем соответствие каждой букве шифра букву ключа.
Теперь действуем по следующему алгоритму по каждой букве, например ш.
Берём букву ключа, ищем его в первой строчке, находим в полученном столбце букву из шифра ъ (она получается в третьей строке), смотрим какая буква в первом столбце этой строки - в
Следующая буква ключа к, в её столбце ищем ё, находим на пятой строчке снизу, первая буква в этой строке ы.
И так далее по всем буквам.
В итоге получим фразу "выполните новое задание"