viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.

Question

viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,..., an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.

aivilan · Answer

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

A:array[1..100] of integer;

Begin

clrscr;

S:=0;

Write(‘nhap n nguyen duong tu ban phim ‘);

Readln(n);

For i:=1 to n do

Begin

Write(‘ A[‘,i,’]’);readln(A[i]);

End;

For i:=1 to n do

If (A[i] mod 5=0) then

S:=S+A[i];

Write(‘ Tong cac so chia het cho 5 la ‘,S);

Readln

End.

Kymlien · Answer

uses crt;

var a:array[1..100] of integer;

i,n,s:integer;

begin

clrscr;

readln(n);

for i:=1 to n do begin write(‘a[‘,i,’]=’);

readln(a[i]);

end;

s:=0;

for i:=1 to n do if a[i] mod 5=0 then s:=s+a[i];

write(s);

readln

end.

cho mk 5sao+tlhn+cảm ơn nha

0 bình luận về “viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.”