Vct nhập số n, tính tổng các phần tử lớn hơn 50 và chia đc cho 10

0 bình luận về “Vct nhập số n, tính tổng các phần tử lớn hơn 50 và chia đc cho 10”

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       n,i,s: 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 10=0) and (a[i]>50) then
                   s:=s+a[i];
           end;
       writeln(‘Tong cac phan tu lon hon 50 va chia het cho 10: ‘,s);
       readln;
   end.

   Bình luận

2. – Phải chia hết cho 10 chứ bạn? Vì số nào cũng chia được cho 10 mà

   Program HOIDAP247;

   var i,n: integer;

   t: longint;

   a: array[1..32000] of integer;

   begin

   write(‘Nhap n : ‘); readln(n);

   for i:=1 to n do 

   begin

   write(‘Nhap phan tu thu ‘,i,’ : ‘); readln(a[i]);

   end;

   t:=0;

   for i:=1 to n do if (a[i]>50) and (a[i] mod 10=0) then t:=t+a[i];

   write(‘Tong cac phan tu lon hon 50 va chia het cho 10 la : ‘,t);

   readln 

   end.

   Bình luận