Lập trình đơn giản

mynguyen

viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số in ra màn fhình dãy số vừa nhập và tính tổng các số chẵn trong dãy

Quốc Anh
26 tháng 4 2017 lúc 12:41

program bien_mang;

uses crt;

var i, n, s : integer;

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

begin

clrscr;

write('So phan tu la: '); readln(n);

s:=0;

for i:=1 to n do begin

write('Nhap so thu ',i); readln(a[i]);

if a[i] mod 2 = 0 then s:=s+1;

end;

for i:=1 to n do writeln('Các số vừa nhập là :',a[i]);

writeln('Tong cac so chan la',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Yeu DUong nhat
Xem chi tiết
Nhân lê
Xem chi tiết
Hường Nguyễn Thị Thu
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh
Xem chi tiết
Nguyễn Linh
Xem chi tiết
duyy
Xem chi tiết
Long Triệu
Xem chi tiết