Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử ( n dc nhập từ bàn phím ). Sau đó:
+ In dãy vừa nhập ra
+ Tính tổng các phần tử trong dãy
+ Tính tổng các số chẵn trong dãy
+ Tính tổng các số lẻ trong dãy
+ Tính tổng các số chia hết cho 3 trong dãy trong dãy
Ko chép mạng nha~ cảm ơn các bn trước (Tặng 100 xu cho ai có bài làm hợp lí nhất)
Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);</p><p>for i:=1 to n do</p><p>begin</p><p>write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan la: ',t);
readln;
end.
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
Vui | Buồn | Bình thường |