Как удалить обычную или концевую сноску?
А) Удалить текст сноски с разделителем в нижней части страницы.
В) Удалить концевую сноску в конце документа.
C) Удалить символ сноски или знак в тексте.
D) Выполнить команду Ссылки Сноски Удалить сноску.
Е) Выделить текст сноски и нажать клавишу Delete.
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.