Bài 11: Kiểu mảng

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

viết chương trình nhập vào mảng a gồm n phần tử số nguyên a1...an đếm xem trong mảng có bao nhiêu phần tử chẵn và tích tổng các giá trị của phần tử chẵn và thông báo ra màn hình

Ngô Thành Chung
22 tháng 3 2022 lúc 22:07

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

      i,n,S,d:byte;

 begin

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

  for i:=1 to n do begin

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

                           readln(A[i]);

                          end;

d:=0; S:=0;

for i:=1 to n do if A[i] mod 2 = 0 then begin

                                                          d:=d+1;

                                                           S:=S+A[i];

                                                           end;

write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);

readln

end.

                                                          

                      

  


Các câu hỏi tương tự
Benny
Xem chi tiết
Thu Hiền
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Lê thị khánh chi
Xem chi tiết
Khang nguyễn
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Linh Chi
Xem chi tiết
Khánh Linh
Xem chi tiết