Vtc tính tổng các số có chữ số tận cùng là 5

0 bình luận về “Vtc tính tổng các số có chữ số tận cùng là 5”

1. uses crt;
   var t,i,n:longint; a:array[1..10000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if a[i] mod 10 =5 then inc(t,a[i]);
         end;
      writeln(‘Tong: ‘,t);
   readln
   end.

   Bình luận