Ответ: а) Антонов
1)Епанчин
2)Демидов
3)Гусев
4)Воробьев
5)Борисов
6)Антонов
Assign<span> – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.</span>
Reset - открывает существующий файл для чтения.
Rewrite<span> – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).</span>
Close<span> - закрывает открытый файл.</span>
2 клетки. Потому что в условии описан квадрат, окаймление которого - пустота. Данным условиям удовлетворяет только 2 варианта:
С4 и D4. Во всех остальных случаях - беда)
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.