Cho mảng A với n số nguyên nhập từ bàn phím. Tính tổng các số chẵn chia hết cho 5

0 bình luận về “Cho mảng A với n số nguyên nhập từ bàn phím. Tính tổng các số chẵn chia hết cho 5”

1. program oken;
   uses crt;
   var a: array [1..100] of longint;
       n,s,i: longint;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   begin
                           write(‘A[‘,i,’]: ‘);
                           readln(A[i]);
                           if a[i] mod 5=0 then s:=s+a[i];
                   end;
           writeln(‘Tong cac phan tu chia het cho 5: ‘,s);
           readln;
   end.

   Bình luận

2. program bt ;
   uses crt ;
   var a: array [1..100] of integer;
       n,s,i: integer;
   begin
    write(‘Nhap so phan tu cua mang:’); readln(n);
    s:=0;
    for i:=1 to n do
    begin
     write(‘A[‘,i,’]: ‘);
     readln(A[i]);
      if a[i] mod 5=0 then s:=s+a[i];
     end;
           writeln(‘Tong cac phan tu chia het cho 5: ‘,s);
           readln;
   end.

   Bình luận