program tinh_tong;
uses crt;
var i,n,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong cua day la: ',t);
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.
Viết chương trình nhập vào 1 dãy số nguyên gồm M phần tử, tính tổng các số âm trong dãy số đó. In ra màn hình giá trị tổng
Viết chương trình nhập vào 1 dãy số, in ra dãy số đó, tính tổng của dãy, in ra dãy số chẵn, số lẻ.
viết chương trình nhập vào 1 dãy số nguyên , tính tổng các ước của k
Viết chương trình nhập vào dãy số n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
Viết chương trình nhập vào dãy số gồm n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
viết chương trình nhập vào 1 dãy số nguyên vừa đưa ra màn hình tổng và trung bình của dãy số nguyên đó
Viết chương trình cho phép nhập dãy n số nguyên, em hãy: a/ Cho biết trong dãy số vừa nhập có bao nhiêu số chẳn? b/ Tính trung bình cộng các phần tử chẳn? c/ In các phần tử trong dãy ra màn hình theo chiều dọc? Giúp với ạ
Viết chương trình nhập một dãy số nguyên mười phần tử tính tổng các phần tử trong dãy số
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
