A:

uses crt;

var t,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

B:

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap m='); readln(m);

for i:=1 to m do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to m do 

  t:=t+a[i];

writeln(t);

readln;

end.

bạn viết có dấu đi mình ko hiểu

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d,e,t;

int main()

{

cin>>a>>b>>c>>d>>e;

t=0;

if ((a%10==0) or (a%10==5)) t=t+a;

if ((b%10==0) or (b%10==5)) t=t+b;

if ((c%10==0) or (c%10==5)) t=t+c;

if ((d%10==0) or (d%10==5)) t=t+d;

if ((e%10==0) or (e%10==5)) t=t+e;

cout<<t;

return 0;

}

var s,i,n:integer;

begin

Write('n = ');

While (n > 100) and (n < 1) then

Begin

write('Nhap sai, nhap lai ');readln(n);

End;

for i:=1 to n do

s:=s+i;

write('tong la: ',s);

readln;

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

giup mik vs mik dg can gap

Câu 1:

Program HOC24;

var a: array[1..10] of integer;

min,max,i: integer;

begin

for i:=1 to 10 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

min:=32000; max:=0;

for i:=1 to 10 do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la :',max);

write('So nho nhat la : ',min);

readln

end.

Câu 2:

Program HOC24;

var a: array[1..20] of integer;

t,i: integer;

begin

for i:=1 to 20 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to 20 do

if a[i] mod 2<>0 then t:=t+a[i];

writeln('Tong cac so le la :',t);

readln

end.

#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
int main()
{
    ll n, dem=0, sum=0; cin >> n;
    ll m=n;
    while(n--) {
        ll x;
        cin >> x;
        if(x==0) break;
        else {
            sum+=x, dem++;
        }
    }
    cout << ((dem==m)?dem:dem+1) << "\n" << sum; //ở đấy mình tính cả số 0 do mình cx k hiểu là đề có bắt tính thêm số 0 hay không (nếu k thì bạn chỉ cần cout << dem là được)
}

Chúc bạn học tốt!

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.