Tin học viết chương trình nhập từ bàn phím M số nguyên dương (M<=200).Đưa ra màn hình tổng các số chia hết cho 5 của dãy số đó (giá trị các phần tử nhỏ hơn ho 23/07/2021 By Everleigh viết chương trình nhập từ bàn phím M số nguyên dương (M<=200).Đưa ra màn hình tổng các số chia hết cho 5 của dãy số đó (giá trị các phần tử nhỏ hơn hoặc bằng 5000)
uses crt;var m,i,t:longint; a:array[1..100000]of longint;beginclrscr; write(‘m=’);readln(m); for i:=1 to m do begin write(‘a[‘,i,’]=’);readln(a[i]); if(a[i] mod 5=0)and(a[i]<=5000)then inc(t,a[i]); end; writeln(‘Tong cac so la boi cua 5: ‘,t);readln;end. Trả lời
program tong; uses crt; var A:array[1..200] of integer; m,i:byte; tong:longint; begin clrscr; write(‘Nhap so luong phan tu M: ‘); readln(m); tong:=0; for i:=1 to m do begin write(‘Phan tu thu ‘,i,’: ‘); readln(A[i]); if A[i] mod 5=0 then tong:=tong+A[i]; end; write(‘Tong cac so chia het cho 5 cua day la: ‘,tong); readln; end. Trả lời