Program HOC24;
var i,n,t: byte;
a: array[1..100] of integer;
function tcs(x: integer): integer;
var t1: byte;
begin
t1:=0;
while x<>0 do
begin
t1:=t1+(x mod 10);
x:= x div 10;
end;
tcs:=t1;
end;
begin
write('Nhap n : ');
for i:=1 to n do
begin
write('Nhap A[',i,']='); readln(a[i]);
end;
t:=tcs(a[1]);
for i:=2 to n do if t>tcs(a[i]) then t:=max;
write(t);
readln
end.
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
Viết chương trình nhập dãy n số nguyên.Sau đó in ra màn hình dãy số đó.Với n là 1 số nguyên được nhập từ bàn phím
Với một dãy số hữu hạn bất kỳ ta luôn tìm được số nhỏ nhất trong dãy số đó. Ví dụ: Dãy số gồm 5 phần tử: 7, 8, 4, -9, 9; Số nhỏ nhất trong dãy số trên là -9. Yêu cầu: Viết chương trình tìm phần tử nhỏ nhất của dãy n số nhập vào từ bàn phím. Kết quả xuất ra màn hình. --HẾT---
viết ct nhập vào 1 dãy gồm n số (với n được nhập từ bàn phím).tìm giá trị lớn nhất trong dãy số vừa nhập.
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
viết chương trình sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình tổng các số chia hết cho 3
Viết chương trình tính tích các số chẵn của số nguyên N nhập từ bàn phím sau đó in kết quả ra màn hình
