Tính và in ra trung bình cộng của các số âm, số dương trong array Pascal

Tính và in ra trung bình cộng của các số âm, số dương trong array Pascal

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

Bài giải

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 tongam:=tongam+a[i];
              x:=x+1;
        END;
    tba:=tongam/x;
    write('TB cong cac so am la: ',tba:5:1);
   
    writeln;
   
    tongduong:=0; y:=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. 
Bạn thấy bài viết này như thế nào?: 
Average: 10 (4 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
1 + 15 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Tài sản thừa kế từ Steve Jobs nên được bán ngay

Tài sản thừa kế từ Steve Jobs nên được bán ngay

Hiện tại chính là thời điểm cực kỳ thích hợp để đem số cổ phiếu của hai công ty lớn: Apple và Walt Disney do Steve Jobs để lại “đổi” ra 6,78 tỷ USD.

Buổi hội thảo Managing Multiple Drupal Sites diễn ra tại Zurich tháng 6.2019

Buổi hội thảo Managing Multiple Drupal Sites diễn ra tại Zurich tháng 6.2019

In this webinar, amazee.io CTO, Michael Schmid (@Schnitzel) will walk us through the setup and workflow forward-thinking organizations rely on to efficiently run their multitude of business-critical websites.

[Phần 4] - The Comments Model: Thêm comments, Doctrine Repositories và Migrations

[Phần 4] - Comments Model: Thêm comments, Doctrine Repositories và Migrations

This chapter will build on the blog model we defined in the previous chapter. We will create the comment model, which will handle comments for blog posts.

Tomdesgin.vn

 

Drupal Services