viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím

viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím

0 bình luận về “viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím”

  1. var a:aray[1..1000]of integer;

    i,n,d:integer;

    begin

    d:=0;

    writeln(‘nhap n’);readln(n);

    for i:=1 to n do

    read(a[i]);

    for i:=1 to n do

    if a[i] mod 5=0 then d:=d+1;

    write(d);

    readln;

    end.

    Bình luận

Viết một bình luận