Xin chào các bạn, hôm nay mình xin giải đáp đề của bạn Tuấn Hoàng gửi về Fanpage.
Đề : Viết chương trình nhập vào một mảng k phần tử (k<250).
- In mảng ra màn hình
- In ra màn hình tổng các số lẻ chia hết cho 5.
Ở đây chúng ta vẫn nhập và xuất mảng như bình thường.
Còn ở câu dưới thì thuật toán của nó như thế này :
//Tạo một biến tổng và gán cho nó bằng 0.
s:=0;
//tạo một chương trình con chạy cho nó khỏe (chương trình con là begin ... end; nhớ là nó kết thúc bằng dấu ; nhé)
begin
//tạo 1 vòng for cho nó chạy từ phẩn tử thứ nhất đến phần tử cuối cùng, ở đây là phần tử thứ n
for i:=1 to n do
//bắt đầu ta đặt điều kiện cho nó
if a[i] mod 2 <> 0 (nếu phần tử thứ i lẻ) and a[i] mod 5 = 0 (và nếu phần tử thứ i chia hết cho 5)
then s:=s+a[i]; //thì cộng thêm phần tử a[i] vào
end;//chương trình con kết thúc ở đây
//tiếp theo chúng ta sẽ in nó ra
write(s);
readln;//cho phép chương trình tạm dừng để xem kết quả.
Dưới đây là cách giải. Mọi đóng góp xin gửi về Fanpage.
uses crt;
var a:array[1..250] of integer;
n,i,s:integer;
begin
clrscr;
write('Nhap so phan tu cua mang: ');
readln(n);
//Nhap mang
begin
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
end;
//Xuat mang
begin
for i:=1 to n do
begin
write(a[i],' ');
end;
end;
//tim tong cac so le chia het cho 5
s:=0;
begin
for i:= 1 to n do
if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then
s:=s+a[i];
end;
writeln();
writeln('Tong cac so le chia het cho 5 trong day la : ',s);
readln;
end.
