viết chương trình thực hiên công việc sau nhập vào mảng các số nguyên sau đó đứa ra màn hình:
a) phần tử lớn nhất, phân tử nhỏ nhất của mảng
b) in ra các cặp phần tử liên tiếp có giá trị tuyệt đối của hiệu < k (với k <0 cho trước)
viết chương trình thực hiên công việc sau nhập vào mảng các số nguyên sau đó đứa ra màn hình:
a) phần tử lớn nhất, phân tử nhỏ nhất của mảng
b) in ra các cặp phần tử liên tiếp có giá trị tuyệt đối của hiệu < k (với k <0 cho trước)
program bt;
uses crt;
var i,k,n,Max,Min:integer;
A:array[1..1000] of integer;
begin
clrscr;
readln(n,k); Max:=-10000; Min:=10000;
for i:=1 to n do read(A[i]);
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(‘Max: ‘,Max);
writeln(‘Min: ‘,Min);
For i:=1 to n do if abs(A[i]-A[i+1])<k then write(A[i],’ ‘,A[i+1],’; ‘);
readln;
readln;
end.
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,j,max,min: 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
min:=A[i];
End;
max:=A[1];
For i:=2 to n do
If A[i]>max then
max:=A[i];
Writeln(‘Max: ‘,max);
Writeln(‘Min: ‘,min);
Write(‘Nhap k: ‘); Readln(k);
For i:=1 to n-1 do
For j:=i+1 to n do
If abs(A[i]-A[j])<k then Writeln(A[i],’ ‘,A[j]);
Readln
End.