Nhập vào một mảng A,tìm số lớn nhất và số nhỏ nhất.Hãy tính tổng các số nguyên thuộc đoạn [min,max] mà các số đó không xuất hiện trong mảng A
Nhập vào một mảng A,tìm số lớn nhất và số nhỏ nhất.Hãy tính tổng các số nguyên thuộc đoạn [min,max] mà các số đó không xuất hiện trong mảng A
uses crt;
var n,i,min,max,s,s1:longint; a:array[1..100000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
min:=high(longint);
max:=low(longint);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
inc(s1,a[i]);
end;
for i:=min to max do inc(s,i);
writeln(‘Tong cac so nguyen thuac doan [min,max]: ‘,s-s1);
readln
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min,s,j:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(a[i]);
end;
for j:=1 to n do
max:=a[1];min:=a[1];
for i:=2 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 j:=min+2 to max-2 do if j<>a[i] then inc(s,j);
writeln(‘Tong cac so thuoc doan [min,max] (khong xuat hien trong mang): ‘,s);
readln;
end.