Массив: Найти min и max в двух заданных массивах, а разницу этих значений записать в массив С... - PascalABC.NET - Ответ 12239570

program tur1_4;
   uses crt;
   var A,B,C: array [0..10000] of integer;
         N,i: byte;
         F: boolean;
begin
   ClrScr;
   writeln('Сколько знаков числа будет: ');
   read(N);
   write('Введите значения массива А: ');
   for i:=1 to N do begin
                      read(A[i]);
                    end;
   write('Введите значение массива B: ');
   for i:=1 to N do begin
                      read(B[i]);
                    end;
   for i:=1 to (N+1) do begin
                      if (A[i]>B[i]) then begin
                                             C[i]:=A[N-i]-B[N-i];
                                          end
                      else if (A[i]<B[i]) then begin
                                                 if (A[N-i]<B[N-i]) then begin 
                                                                            A[i]:=A[N]+1;
                                                                            C[i]:=A[i]-B[N-i];
                                                                         end;
                                               end;
                    end;
   for i:=1 to N do begin
                      write(C[i]);
                    end;
   while not keypressed do;
end.