Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minh Hoạt

viết chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)

a. Đếm số lượng phần tử dương cho kết quả ra màn hình

b. Tính tổng các phần tử dương trong mảng

c. Tính trung bình các phần tử trong mảng

d. Tính trung bình các phần tử dương trong mảng

e. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phím

f. Tìm vị trí phần tử =k với k nhập từ bàn phím, nếu có nhiều phần tử =k thì hiển thị ra màn hình tất cả vị trí phần tử =k đó.

g. Đếm số lượng phần tử là nguyên tố trong mảng.

h. Kiểm tra mảng vừa nhập có phải là cấp số cộng hay không?

i. Sắp xếp mảng theo thứ tự tăng dần các phần tử và hiển thị ra màn hình mảng tăng đó

Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 12:38

uses crt;

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

i,n,dem,t,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('So luong phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.


Các câu hỏi tương tự
Nguyễn tiên
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
nông thị ngân
Xem chi tiết
Linh Chi
Xem chi tiết
Hoàng Phi Kim Huệ
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Hương Bùi
Xem chi tiết