uses crt;
var a:array[1..30]of integer;
i,min:integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 30 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Viết CT tìm phần tử có giá trị lẻ của mảng và đưa ra màng hình chỉ số và giá trị của phần tử tìm được . Nếu có nhiều phần tử có cùng giá trị tỉ lệ thì đưa ra phần tử có chỉ số lớn nhất.
Nhập từ bàn phím mảng a có n số nguyên. In ra màn hình mảng a vừa nhập, in phần tử lớn nhất, in phần tử nhỏ nhất của mảng, in vị trí phần tử lớn nhất, in vị trí phần tử nhỏ nhất của mảng.
Viết chương trình tìm phần tử có giá trị lẻ của mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử cùng giá trị lẻ thì đưa ra phần tử có chỉ số lớn nhất. Nhờ mn giúp đỡ
Cho mảng một chiều có 100 phần tử, các phần tử có kiểu số thực, và số nguyên K a/ Đếm các phần tử có giá trị bằng K b/ Tính tổng các phần tử dương và âm của mảng
Nhập 1 mảng số nguyên từ bàn phím
1,In mảng vừa nhập ra màn hình,mỗi phần tử cách nhau 5 vị trí
2,Đếm và in ra các số chẵn âm
3,Đếm xem trong mảng có bao nhiêu phần tử bằng với 1 sô k được nhập từ bàn phím
4,Tìm giá trị nhỏ nhất của mảng
5,In ra toàn bộ các số nguyên dương có trong mảng
6,Sắp xếp mảng theo chiều giảm dần
Mọi ng giúp tui với!!!!
Nhập 1 mảng số nguyên từ bàn phím
1,In mảng vừa nhập ra màn hình,mỗi phần tử cách nhau 5 vị trí
2,Đếm và in ra các số chẵn âm
3,Đếm xem trong mảng có bao nhiêu phần tử bằng với 1 sô k được nhập từ bàn phím
4,Tìm giá trị nhỏ nhất của mảng
5,In ra toàn bộ các số nguyên dương có trong mảng
6,Sắp xếp mảng theo chiều giảm dần
Viết chương trình tạo mảng B gồm các phần tử lẻ của mảng A. Mảng A tối đa 300 phần tử. Đưa ra màn hình mảng B vừa tạo và tổng số phần tử mảng B.
Cho mảng A gồm 5 phần tử thuộc kiểu nguyên.Hãy lập chương trình: a. Nhập mảng và in mảng ra màn hình b. Tính tổng các phần tử của mảng A c. In ra màn hình các phần tử ở vị trí lẻ của mảng
