Tên chương trình: equalcon.???
Xét dãy số nguyên n phần tử. Hãy tìm đoạn dài nhất chứa các phần tử bằng nhau đứng liên tiếp trong dãy.
Dữ liệu vào: File Equalcon.inp gồm hai dòng:
+ Dòng 1: Ghi số N
+ Dòng 2: Ghi N số a1, a2,, aN (0<= ai <=10^9)
Kết quả: Đưa ra file Equalcon.out gồm hai dòng
+ Dòng 1: ghi số nguyên d - độ dài lớn nhất tìm được
+ Dòng 2: Ghi số nguyên có giá trị lặp lại nhiều nhất, nếu có nhiều số thỏa mãn chọn số nhỏ nhất
Ví dụ:
Equalcon.inp
10
2 3 3 1 3 3 3 5 5 5 3
Equalcon.out
3
Giới hạn:
+ 50% số test ứng với N< 10^3
+ 50% số test ứng với N<10^6
pascal nha mnn
Lời giải 1 :
uses crt;
var n,i,max:longint;
f,a:array[0..10000000] of longint;
begin
assign(input,'Equalcon.inp');
reset(input);
assign(output,'Equalcon.out');
rewrite(output);
readln(n);
max:=-1;
for i:=1 to n do
begin
read(a[i]);
if a[i]=a[i-1] then
f[i]:=f[i-1]+1
else
f[i]:=1;
if max<f[i] then max:=f[i];
end;
write(max);
end.
Lời giải 2 :
var n,i,d,ans: integer;
a: array[1..100005] of int64;
begin
readln(n);
for i:=1 to n do read(a[i]);
ans:=0; d:=1;
for i:=2 to n do begin
if a[i]=a[i-1] then begin
d:=d+1;
end else begin
if ans<d then ans:=d;
d:=1;
end;
end;
write(ans);
end.
Bạn có biết?
Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!
Nguồn :
Wikipedia - Bách khoa toàn thưTâm sự lớp 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần và sang năm lại là năm cuối cấp, áp lực lớn dần. Hãy chú ý đến sức khỏe, cân bằng giữa học và nghỉ ngơi để đạt hiệu quả tốt nhất!
Nguồn :
sưu tậpCó thể bạn quan tâm
Copyright © 2024 Giai BT SGK