Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm An Khánh

Mọi người giúp em bài này với ạ

Nhập một dãy số nguyên cho đến khi tổng của chúng lớn hơn 100.

Xuất ra màn hình các kết quả sau:

+ Dãy số vừa nhập sau khi đã sắp xếp theo chiều tăng dần (mỗi số cách nhau ít nhất một dấu cách)

+ Tổng các số là bội số của 3.

+ Số lớn nhất của dãy

+ Số lượng số là bội của 3

Phạm An Khánh
23 tháng 3 2021 lúc 21:10

đây là pascal ạ

Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:20

uses crt;

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

i,n,j,tam,t,t1,tam,dem,max:integer;

begin

clrscr;

n:=0;

t:=0;

repeat

inc(n);

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

t:=t+a[n];

until t>100;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so theo chieu tang dan la: ');

for i:=1 to n do 

 write(a[i]:4);

writeln;

t1:=0;

dem:=0;

for i:=1 to n do 

if a[i] mod 3=0 then

begin

t1:=t1+a[i];

inc(dem);

end;

max:=a[1];

for i:=1 to n do 

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

writeln('Tong cac so la boi cua 3 la: ',t1);

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

writeln('So luong so la boi cua 3 la: ',dem);

readln;

end.


Các câu hỏi tương tự
Finn
Xem chi tiết
Nguyễn Phúc
Xem chi tiết
Linh Da
Xem chi tiết
Nhi Le
Xem chi tiết
Trần Thị Hà Trang
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết
Anh Nguyen
Xem chi tiết
Phạm Tèo
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết