KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Vct nhập số n, tính tổng các phần tử lớn hơn 50 và chia đc cho 10
By Nevaeh
Vct nhập số n, tính tổng các phần tử lớn hơn 50 và chia đc cho 10
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.
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.
– 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.