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 1:
Program hotrotinhoc_hoc24;
var i,n,sd,sa,vtd,vta: integer;
a: array[1..32000] of real;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then
begin
sd:=a[i];
vtd:=i;
break;
end;
writeln('So duong dau tien la :',sd);
writeln('Chi so cua so duong dau tien la :',vtd);
for i:=1 to n do
if a[i]>0 then
begin
sa:=a[i];
vta:=i;
break;
end;
writeln('So am dau tien la :',sa);
writeln('Chi so cua so am dau tien la :',vta);
readln
end.
Bài 2:
Program hotrotinhoc_hoc24;
var i,n,max,min,max1,min1: integer;
a: array[1..32000] of real;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=0; max1:=0; min:=32000; min1:=32000;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
if (a[i]<min1) and (a[i] mod 3=0) then min1:=a[i];
if (a[i]>max1) and (a[i] mod 2=0) then max1:=a[i];
end;
writeln('Gia tri lon nhat la : ',max);
write('Chi so 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('Chi so cua gia tri nho nhat la :');
for i:=1 to n do if a[i]=min then write(i,' ');
writeln;
writeln('Gia tri nho nhat chia het cho 3 la : ',min1);
write('Gia tri lon nhat la so chan la :',max1);
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.
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.
