viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.

viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.

0 bình luận về “viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.”

  1. Program Hotboy;

    Uses crt;

    Var i,n:integer;

    S:longint;

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

    Begin

    clrscr;

    S:=0;

     Write(‘nhap n nguyen duong tu ban phim ‘);

     Readln(n);

     For i:=1 to n do

    Begin

        Write(‘ A[‘,i,’]’);readln(A[i]);

    End;

    For i:=1 to n do

    If (A[i] mod 5=0) then

    S:=S+A[i];

    Write(‘ Tong cac so chia het cho 5 la ‘,S);

    Readln

    End.

    Bình luận
  2. uses crt;

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

          i,n,s:integer;

    begin

    clrscr;

    readln(n);

    for i:=1 to n do begin write(‘a[‘,i,’]=’);

                                        readln(a[i]);

                               end;

    s:=0;

    for i:=1 to n do if a[i] mod 5=0 then s:=s+a[i];

    write(s);

    readln

    end.

    cho mk 5sao+tlhn+cảm ơn nha

    Bình luận

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