uses crt;
var a:array[1..100]of integer;
i,n,t,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln('Tong la: ',t);
writeln('Tich la: ',s);
readln;
end.
Viết chương trình nhập N số nguyên từ bàn phím tính tổng số lớn nhất và nhỏ nhất của dãy số
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
Viết chương trình tính giá trị trung bình của n số nguyên được nhập từ bàn phím
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím; tính tổng các phần tử
Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính tổng các phần tử lẻ của dãy. i. Sắp xếp các phần của dãy theo thứ tự giảm dần. k. Sắp xếp các phần của dãy theo thứ tự tăng dần.
Viết chương trình nhập N số thực vào từ bàn phím, in ra màn hình giá trị nhỏ nhất và tích các giá trị của N số đã nhập vào.
sử dụng biến mảng Viết chương trình nhập vào dãy số gồm n số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó Giúp mình với
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình hiệu các số chẵn trong dãy số nguyên.
