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

Lập trình pascal nhập vào mảng a gồm n phần tử (n nhập từ bàn phím)
1. Khai báo và nhập mảng
2. Tính tổng các phần tử của mảng
3. Đếm và in ra các phần tử có giá trị bằng 5
4. Tính trung bình cộng cách phần tử là số lẻ
5. Tìm những phần tử mang giá trị 0 thay bằng giá trị 10 rồi in lại mảng

Minh Lệ
22 tháng 4 2022 lúc 20:15

Program HOC24;

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

i,n,d: integer;

tbc: real;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do t:=t+a[i];

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

d:=0; 

for i:=1 to n do if a[i]=5 then d:=d+1;

writeln('Co ',d,' phan tu co gia tri bang 5');

tbc:=0;

for i:=1 to n do if a[i] mod 2=1 then tbc:=tbc+a[i];

tbc:=tbc/n;

writeln('Trung binh cong cac phan tu le la: ',tbc:6:2);

write('Mang sau khi thay la: ');

for i:=1 to n do if a[i]=0 then a[i]:=10;

for i:=1 to n do write(a[i],' ');

readln

end.


Các câu hỏi tương tự
phạm hải nam
Xem chi tiết
Hương Lê
Xem chi tiết
Linh Nguyen
Xem chi tiết
Ẹih bw
Xem chi tiết
Đỗ Trần Kiên
Xem chi tiết
Phạm Gia Bình
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Bùi Xuân
Xem chi tiết
anh vương
Xem chi tiết