- 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.

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.