https://pastein.ru/t/-s
скопируйте уникальную ссылку для отправки
var
inFile, outFile: text;
n, k: integer;
stroka0: string;
stroka1: string;
stroka2: string;
i,j: integer;
a: array[1..10001] of integer;
b: array[1..10001] of integer;
tmp : string;
priznak : integer;
key : integer;
begin
assign(infile, 'input4.txt'); // связываем файл input4.txt с переменной типа ТЕКСТОВЫЙ ФАЙЛ
assign(outFile, 'output4.txt');
reset(infile); // устанавливаем указатель чтения на начало файла
rewrite(outFile); // устанавливаем указатель записи на начало файла
readln(infile, stroka0);// читаем кол-во цифр из файла (n)
readln(infile, stroka1); // читаем строку последовательности A
readln(infile, stroka2); // читаем строку последовательности B
n:=StrToInt(stroka0);
// формирование массива A
i:=1;
j:=1; // позиция в разбираемой строке
while (i <= n) do // цикл по числу чисел в строке
begin
tmp := ''; // строка с числом пока пуста
k := 0;
while (stroka1[j] <> ' ') do
begin
k:=k+1;
tmp:=tmp+stroka1[j];
if (j < length(stroka1))
then j:=j+1
else break;
end;
j:=j+1;
a[i] := StrtoInt(tmp);
i := i+1;
end;
// формирование массива B
i:=1;
j:=1; // позиция в разбираемой строке
while (i <= n) do // цикл по числу чисел в строке
begin
tmp := ''; // строка с числом пока пуста
k := 0;
while (stroka2[j] <> ' ') do
begin
k:=k+1;
tmp:=tmp+stroka2[j];
if (j < length(stroka2))
then j:=j+1
else break;
end;
j:=j+1;
b[i] := StrtoInt(tmp);
i := i+1;
end;
for disp:integer:=-104 to 104 do
begin
priznak := 1;
for t:integer:=1 to n do
if (b[t] <> (a[t] + disp))
then priznak := 0;
if (priznak = 1)
then begin
key := disp;
break;
end;
end;
if (priznak = 1)
then begin
write(outFile,'YES');
if (key > 0)
then write(outFile,'+')
else write(outFile,'-');
write(outFile,key);
writeln(key);
end
else begin
write(outFile,'NO');
write('NO');
end;
end.