1.Viết chương trình nhập vào mảng 1 chiều gồm N số thực rồi thực hiện các công việc sau:
a) Tìm số dương đầu tiên và chỉ số của nó trong mảng;
b) Tìm số âm đầu tiên và chỉ số của nó trong mảng;
2.Viết chương trình nhập vào mảng 1 chiều gồm N số thực rồi thực hiện các công việc sau:
a) Tìm giá trị lớn nhất và in ra chỉ số của nó;
b) Tìm giá trị nhỏ nhất và in ra chỉ số của nó;
c) Tìm giá trị nhỏ nhất mà chia hết cho 3;
d) Tìm giá trị lớn nhất là số chẵn.
3.Viết chương trình nhập vào mảng 1 chiều gồm N số nguyên; tìm giá trị lớn nhất, nhỏ nhất và thứ tự xuất hiện của chúng (chỉ số) trong mảng.
4.Viết chương trình nhập vào mảng 1 chiều gồm N số nguyên; nhập từ bàn phím số nguyên k, kiểm tra xem số nguyên k có tồn tại trong mảng hay không? nếu có thì hãy cho biết số lần xuất hiện.
Bài 4:
Program hotrotinhoc_hoc24;
var i,n,k,d: integer;
a: array[1..32000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Nhap so nguyen k : '); readln(k);
for i:=1 to n do
if a[i]=k then inc(d);
if d>0 then writeln('So nguyen K xuat hien trong day') else writeln('So nguyen K khong xuat hien trong day');
write('So lan xuat hien cua k la :',d);
readln
end.
Bài 3:
Program hotrotinhoc_hoc24;
var i,n,max,min: integer;
a: array[1..32000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Gia tri lon nhat la : ',max);
write('Thu tu xuat hien cua gia tri lon nhat la :');
for i:=1 to n do if a[i]=max then write(i,' ');
writeln;
writeln('Gia tri nho nhat la : ',min);
write('Thu tu xuat hien cua gia tri nho nhat la :');
for i:=1 to n do if a[i]=min then write(i,' ');
readln
end.