Tin học Pascal

[Nguyễn Chi Xuyên]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào từ bàn phím 1 mảng số nguyên.
a. Cho biết dãy số vừa nhập có bao nhiêu số chẵn.
b. Cho biết dãy số vừa nhập có bao nhiêu số từ 1 đến 50.
c. Tính tổng các số đó.
Giúp mình với ạ mai mình thi rồi ạ

 

[Elishuchi]

Viết chương trình nhập vào từ bàn phím 1 mảng số nguyên.
a. Cho biết dãy số vừa nhập có bao nhiêu số chẵn.
b. Cho biết dãy số vừa nhập có bao nhiêu số từ 1 đến 50.
c. Tính tổng các số đó.
Giúp mình với ạ mai mình thi rồi ạ

Nguyễn Chi Xuyênmặc dù hơi muộn nhưng thôi làm tài liệu về sau hehe

var a:array[1..1000] of longint;
    i,n,dem1,dem2,tong:longint;
begin
    readln(n); dem1:=0;tong:=0; dem2:=0;
    for i:=1 to n do
    begin
        read(a[i]);
        if a[i] mod 2=0 then inc(dem1); {tinh so cac so chia het cho 2}
        if (a[i]>1) and (a[i]<50) then inc(dem2); {tinh so cac so tu 1 den 50}
        tong:=tong+a[i]; {tinh tong day so}
    end;
    write(dem1,' ',dem2,' ',tong);
    readln; readln;
end.

lần sau nếu cần thì tag a vào nha chứ a ko để ý box
mà giờ các trường chuyển dần sang học c,python,... rồi mà nhỉ

 

[Nguyễn Chi Xuyên]

mặc dù hơi muộn nhưng thôi làm tài liệu về sau hehe

var a:array[1..1000] of longint;
    i,n,dem1,dem2,tong:longint;
begin
    readln(n); dem1:=0;tong:=0; dem2:=0;
    for i:=1 to n do
    begin
        read(a[i]);
        if a[i] mod 2=0 then inc(dem1); {tinh so cac so chia het cho 2}
        if (a[i]>1) and (a[i]<50) then inc(dem2); {tinh so cac so tu 1 den 50}
        tong:=tong+a[i]; {tinh tong day so}
    end;
    write(dem1,' ',dem2,' ',tong);
    readln; readln;
end.

lần sau nếu cần thì tag a vào nha chứ a ko để ý box
mà giờ các trường chuyển dần sang học c,python,... rồi mà nhỉ

No Name :Ddạ e cũng kbiet anh ơi, trường e vẫn học pascal