K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

8 tháng 5 2025
Phương pháp giải

Vòng lặp cho phép nhập liên tục số nguyên dương, mỗi lần so sánh với max, nếu số mới lớn hơn max thì cập nhật, khi gặp 0 sẽ kết thúc quá trình nhập và in ra max

Mô tả thuật toán:

Khởi tạo:

Đặt max = 0 (giả định ban đầu chưa có số nào).

Lặp nhập dữ liệu:

Nhập một số n.

Nếu n = 0 → Kết thúc.

Nếu n > max → cập nhật max = n.

Quay lại bước nhập.

Kết thúc:

In ra giá trị max là số lớn nhất.

23 tháng 5 2022

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

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

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.

2 tháng 1 2022

c: 

#include <bits/stdc++.h>

using namespace std;

long long ln,i,n,x;

int main()

{

cin>>n;

ln=LLONG_MIN;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

30 tháng 12 2021

Để đánh số trang một quyển sách dày 295 trang cần dùng bao nhiêu chữ số?

30 tháng 12 2021

a:

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++) s=s+i;

cout<<s;

return 0;

}

24 tháng 12 2022

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

18 tháng 3 2022

a: Input: Dãy các số nguyên

Output: Tổng của dãy đó

c: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

12 tháng 12 2025

o;lj;j;j;k

15 tháng 5 2021

Câu 2: 

a) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: dem←0; i←1; t←0;

-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t và dem

-Bước 7: Kết thúc

15 tháng 5 2021

Câu 2: 

b) uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end;

writeln('So so chan la: ',dem);

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

readln;

end.