Các bạn giúp mình nha : Nhập vào 1 dãy gồm n số nguyên dương biết rằng n không vượt quá 200 và giá trị phần tử không vượt quá 500 . In mảng vừa nhập và tính tổng các phần tử chia hết cho 5 và cho biết có bao nhiêu phần tử chia hết cho 5
Các bạn giúp mình nha : Nhập vào 1 dãy gồm n số nguyên dương biết rằng n không vượt quá 200 và giá trị phần tử không vượt quá 500 . In mảng vừa nhập và tính tổng các phần tử chia hết cho 5 và cho biết có bao nhiêu phần tử chia hết cho 5
program baigiai;
uses crt;
var A:array[1..200] of integer;
n,i,d:byte;
t,t2:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
t:=0; t2:=0; d:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i]);
t:=t+A[i];
if A[i] mod 5=0 then
begin
d:=d+1;
t2:=t2+A[i];
end;
end;
write(‘Day vua nhap la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
writeln;
writeln(‘Tong cac phan tu cua day la: ‘,t);
writeln(‘Co ‘,d,’ phan tu chia het cho 5 va tong cua chung la: ‘,t2);
readln
end.
program ct;
uses crt;
var i,n,S,d:integer;
A:array[1..200] of integer;
begin
clrscr;
write(‘nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]=’); readln(A[i]);
end;
write(‘day so vua nhap la’);
for i:=1 to n do write(a[i]:2);
writeln;
S:=0; d:=0;
for i:=1 to n do
begin
if (A[i] mod 5=0) then
begin
S:=S+A[i];
d:=d+1;
end;
end;
writeln(‘tong cac phan tu chia het cho 5 la’,S);
writeln(‘co’,d,’ so chia het cho 5′);
readln
end.