A) nhập từ bàn phím số phần tử và giá trị từng phần tử
B) ln dãy số ra màn hình
C) tính tổng các phần tử trong dãy số
D) tìm giá trị lớn nhất trong dãy số
Quảng cáo
2 câu trả lời 2385
Program HOC24;
var d,tg,max,j,min,i,n: integer;
t1,t: longint;
a: array[1..32000] of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln;
t:=0; t1:=0; max:=0; min:=32000; d:=0;
for i:=1 to n do
begin
if a[i]<0 then t:=t+a[i];
if a[i] mod 2=0 then
begin
t1:=t1+a[i];
d:=d+1;
end;
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
writeln('Tong cac so am cua day la : ',t);
writeln('Tong cac so chan la : ',t1,'; Trung binh cong cua no la : ',t1/d:2:2);
writeln('Phan tu co gia tri *** nhat la : ',max);
writeln('Phan tu co gia tri nho nhat la : ',min);
for i:=1 to n do write(a[i],' ');
readln
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45560
-
Đã trả lời bởi chuyên gia
28860 -
Hỏi từ APP VIETJACK28486
-
Manh Sam Bui 25 điểm
-
Lien Hoang 20 điểm
-
Tệ Tệ 20 điểm
-
Lê Hoàng Bảo Hà 20 điểm
-
Tam Cương Võ Đình 20 điểm
-
Linh mai 20 điểm
-
Danh Vo 20 điểm
-
Huyền Nguyễn 20 điểm
-
Thắm Vũ 20 điểm
-
Sadec Vivo 20 điểm
-
Trương Băng 20 điểm
-
Hưng Huỳnh công 20 điểm
-
Ngoc Doan 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11807
-
4 năm trước11187
-
4 năm trước9851
-
4 năm trước10143
-
4 năm trước9584
