Viết chương trình Nhập một dãy số nguyên có N phần tử Xuất ra màn hình dãy số vừa nhập Tính tích các phần tử chia hết cho 5 trong dãy trên và xuất kết quả ra màn hình chính
2 câu trả lời
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write("nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
s:=1;
for i:=1 to n do
if a[i] mod 5 then s:=s*a[i];
writeln('tich cac phan tu chia het cho 5: ',s);
readln;
end.
Program BTH;
uses crt;
var a: array [1..100] of longint;
i,n,s:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
s:=1;
for i:=1 to n do
begin
write('a[',i,']: ');readln(a[i]);
If a[i] mod 5=0 then s:=s*a[i];
end;
writeln('Tich cac phan tu chia het cho 5 co trong day la: ',s);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
