Có n đôi giày cùng loại, chỉ khác nhau về kích cỡ được xếp thành một hàng theo thứ tự ngẫu nhiên. Chủ trò chơi bí mật rút một chiếc giày và giấu đi, sau đó yêu cầu người chơi cho biết chiếc giày được giấu đi là chiếc giày trái hay phải và có số bao nhiêu. Lập trình nhập vào n và danh sách số nguyên mô tả các chiếc giày, số âm là giày trái, số dương là giày phải; thông báo ra chiếc giày bị thiếu và kích cỡ của nó. Dữ liệu nhập: - Dòng đầu là số nguyên n - Dòng thứ hai mô tả số trên các chiếc giày Kết quả: - in ra thông báo theo yêu cầu. Xem ví dụ để biết cần in kết quả như thế nào.

*Code Pascal:

var i:longint;
a:array[0..100000000]of int64;
n,ans:int64;
begin
  read(n);        
  ans:=0;
   for i:=1 to n*2-1 do begin
    read(a[i]);
      ans:=ans+a[i]; end;
      if ans>0 then write('Thieu giay trai co ',ans)
      else write('Thieu giay phai co ',abs(ans));    readln
end.

*Code c++:

#include <bits/stdc++.h>
#define ll long long 
using namespace std;
ll a[100000];
int main()
{
    ll n,ans=0;
    cin>>n;
    for (int i=1;i<=n*2-1;i++)
    {
        cin>>a[i];
        ans=ans+a[i];
    }
    if (ans>0) cout<<"Thieu giay trai co "<<ans;
    else cout<<"Thieu giay phai co "<<abs(ans);
}

Do bạn chưa trả lời thì mình sẽ làm cả hai ngôn ngữ C++ và pascal

C++:

#include <iostream>
#include <vector>
#include <cmath>
using namespace std;

int main() {
    int n;
    cin >> n;
    vector<int> count(101, 0);
    for (int i = 0; i < n; i++) {
        int shoe;
        cin >> shoe;
        count[abs(shoe)] += (shoe > 0) ? 1 : -1;
    }
    for (int i = 1; i <= 100; i++) {
        if (count[i] != 0) {
            cout << "Giay " << ((count[i] > 0) ? "trai" : "phai") << " co kich co " << i << " bi thieu" << endl;
            break;
        }
    }
    return 0;
}

--------------------------------------------------------------------------------------------------------------

Pascal:

var
    n, i, shoe: integer;
    count: array[-100..100] of integer;
begin
    readln(n);
    for i := 1 to n do
    begin
        read(shoe);
        if shoe > 0 then
            count[shoe] := count[shoe] + 1
        else
            count[shoe] := count[shoe] - 1;
    end;
    for i := 1 to 100 do
        if count[i] <> 0 then
        begin
            if count[i] > 0 then
                writeln('Giay trai co kich co ', i, ' bi thieu')
            else
                writeln('Giay phai co kich co ', i, ' bi thieu');
            break;
        end;
end.