Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lương Trần Phương Linh

Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:

1. Hiển thị dãy vừa nhập trên 1 hang.

2.  Tính tổng các phần tử trong mảng.

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

4. Tính tổng các số âm và số dương trong mảng.

5. Tính tổng các số chẵn và số lẻ trong mảng.

6. Đếm các số âm, số dương, số chẵn, số lẻ trong mảng.

Azusa
15 tháng 4 2022 lúc 7:50

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.


Các câu hỏi tương tự
my trần
Xem chi tiết
Minh Duy
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Vochehoang
Xem chi tiết
V.Phương
Xem chi tiết
Trang Hà
Xem chi tiết
Phạm Công Ngọc Quốc
Xem chi tiết
phạm hải nam
Xem chi tiết
anhle
Xem chi tiết