

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
*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);
}
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
Bảng tin