Dữ liệu nhập: Cho trong file MINMAX.INP gồm 2 dòng;
- Dòng 1: Số phần tử của dãy n.
- Dòng 2: Dãy số nguyên, giữa các số cách nhau 1 khoảng trắng.
Kết quả: Ghi ra file MINMAX.OUT 1 dòng duy nhất là dãy tìm được.
Ví dụ:
MINMAX.INP MINMAX.OUT
5
9 1 5 3 6 2 4 7 8
Uses crt;
Trả lờiXóaVar n,i,min,max:longint;
f:array[1..100000] of longint;
t:array[1..100000] of boolean;
Begin
readln(n);
readln(f[1]);
t[f[1]]:=true;
min:=f[1];
max:=f[1];
For i:=2 to n do
Begin
readln(f[i]);
t[f[i]]:=true;
If f[i]>max then max:=f[i];
If f[i]<min then min:=f[i];
end;
For i:=1 to max*min do
If t[i]=false then Write(i,' ');
readln;
end.
bài này không chạy được với dãy có số âm ạ?
XóaNhận xét này đã bị tác giả xóa.
Trả lờiXóaNhận xét này đã bị tác giả xóa.
Trả lờiXóaprogram p;
Trả lờiXóauses crt;
var a,b,c:array[1..100] of longint;
n,min,max,i,j,d,dem,t:integer;
s,st:string;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]c[j] then
begin
t:=c[i];
c[i]:=c[j];
c[j]:=t;
end;
for i:=1 to d do
begin
str(c[i],st);
s:=s+st;
end;
for i:=1 to length(s) do
if s[i]=s[i+1] then delete(s,i,2);
for i:=1 to length(s) do
if s[i]=s[i+1] then delete(s,i,2);
write(s);
readln
end.