Viết chương trình nhập số nguyên N [0 < N ≤ 10 000] và mảng a gồm N số nguyên. Tính và in ra trung bình cộng của các số âm, số dương trong a. Không tính số 0.
Ví dụ : a[] = {1, -6, 0, 3, -1}. Trung bình cộng là -0.75
PROGRAM tbc_am_duong_mang;
USES crt;
VAR a:ARRAY[1..100] OF REAL;
i,n,x,y:INTEGER;
tongam,tongduong,tba,tbd:REAL;
BEGIN
clrscr;
write['So phan tu cua day n= '];readln[n];
FOR i:=1 TO n DO
BEGIN
write['Nhap phan tu a[',i,']: '];
readln[a[i]];
END;
tongam:=0; x:=0;
FOR i:=1 TO n DO
IF a[i]0 THEN
BEGIN tongduong:=tongduong+a[i];
y:=y+1;
END;
tbd:=tongduong/y;
write['TB cong cac so duong la: ',tbd:5:1];
readln;
END.
Nhãn: Bài tập Pascal, Bài tập sgk, Mảng 1 chiều, Pascal cơ bản
Viết chương trình nhập số nguyên n[n0]
31/01/2023 | 0 Trả lời
Viết chương trình tính tổng: S=1+3+5+...+999
Viết chương trình tính tổng: S=1+3+5+...+999
09/02/2023 | 0 Trả lờiViết chương trình tính tổng sau:
S=1+1/2^2+1/3^2+...+1/n^2. Trong đó N là một số nguyên được nhập vào từ bàn phím. S là tổng các phân số từ 1 đến n, sau khi tính toán tổng S được xuất ra màn hình.
09/02/2023 | 0 Trả lờiSử dụng câu lệnh lặp để viết chương trình tính tổng 1x2+2x3+3x4+...+n[n+1].
Sử dụng câu lệnh lặp để viết chương trình tính tổng 1x2+2x3+3x4+...+n[n+1]
24/02/2023 | 0 Trả lờiViết chương trình tính tổng S=1+2+3+.... đến khi S lớn hơn 250 thì dừng. In ra màn hình giá trị tổng S vừa tính và cho biết giá trị cuối cùng được cộng là bao nhiêu?
Viết chương trình tính tổng S=1+2+3+.... đến khi S lớn hơn 250 thì dừng. In ra màn hình giá trị tổng S vừa tính và cho biết giá trị cuối cùng được cộng là bao nhiêu?
05/03/2023 | 0 Trả lờiViết chương trình nhập vào 4 số tự nhiên và sắp xếp sau đó in ra màn hình kết quả.
Viết chương trình nhập vào 4 số tự nhiên và sắp xếp sau đó in ra màn hình kết quả.
09/03/2023 | 0 Trả lờiCho dãy n số nguyên tính tổng các phần tử của dãy và cho biết phần tử nào lớn nhất trong dãy. Hãy viết chương trình bằng pascal?
cho dãy n số nguyên tính tổng các phần tử của dãy và cho biết phần tử nào lớn nhất trong dãy. Hãy viết chương trình bằng pascal?