PASCAL
BÀI 1 : Nhập một mảng gồm n số nguyên, xuất ra số nhỏ nhất và vị trí của số đó trong mảng trên
Ví dụ 1:
INPUT
4
5 6 7 8
OUTPUT
Min: 5
Vi tri: 1
Ví dụ 2:
INPUT
5
-5 5 6 -7 8
OUTPUT
Min: -7
Vi tri: 4
BÀI 2 : Đếm số lần xuất hiện của giá trị X trong mảng A.
Ví dụ:
INPUT
4 5
5 6 5 8
OUTPUT
2
Đáp án:
Giải thích các bước giải:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,min,vtmin: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
min:=maxlongint;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i]<min then
Begin
min:=A[i];
vtmin:=i;
Writeln(‘Min: ‘,min);
Write(‘Vi tri: ‘,vtmin);
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,x,d: longint;
Begin
Clrscr;
Write(‘Nhap n,x: ‘); Readln(n,x);
d:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i]=x
Bài 1:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,min,vtmin: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
min:=maxlongint;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i]<min then
Begin
min:=A[i];
vtmin:=i;
End;
End;
Writeln(‘Min: ‘,min);
Write(‘Vi tri: ‘,vtmin);
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,x,d: longint;
Begin
Clrscr;
Write(‘Nhap n,x: ‘); Readln(n,x);
d:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i]=x then inc(d);
End;
Write(d);
Readln
End.