uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
writeln('Cac so chia het cho 5 la: ');
for i:=1 to n do
if a[i] mod 5=0 then write(a[i]:4);
readln;
end.
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Viết chương trình dãy số, in dãy số đó ra màn hình. Giúp mình với ạ
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
Viết chương trình C++ in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến n (n là số nguyên dương được nhập từ bàn phím)
Câu 1: Viết chương trình nhập 10 số nguyên N và tính tổng các số đó
Câu 2: Viết chương trình nhập 10 số nguyên N và in ra màn hình số lượng các số chẳn đã nhập được
Câu 3: Viết chương trình nhập 2 số M, N (M nhỏ hơn N) in ra màn hình các số lẻ có trong khoảng từ M đến N
Các bạn ai đó giúp mình làm những bài này nhé. Cảm ơn!
Viết chương trình nhập dãy số a gồm n phần tử (3<=n<=120)
a)In ra màn hình số lớn thứ m(m nhập từ bàn phím và 1<=m<=n)
b)Chọn các số sao cho có tổng của chúng lớn nhất theo nguyên tắc không chọn 3 số liên tiếp nhau trong dãy .In ra màn hình tổng và vị trí các số đã chọn.
giúp mình vs viết trên pascal nhá!
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
Viết chương trình nhập vào số nguyên dương n bất kỳ. Xuất ra trên màn hình kết quả tổng của dãy số sau: A = 1 + 2 + 3 + 4 + … + n Input: n = 5 Output: A = 15
viết chương trình in ra màn hình từ 1 đến n, n là số nguyên dương nhập từ bàn phím
