Cho dãy số gồm N số tự nhiên (10N10^6) a1, a2, , aN (0ai10^9), trong đó có một số tự nhiên có giá trị khác với các số còn lại trong dãy số. Viết chương trình tìm giá trị của số tự nhiên độc thân đó và vị trí của số độc thân trong dãy số (số tự nhiên đầu tiên tính từ bên trái dãy số). dùng pascal

Code:
program FindLonelyNumber;

const
  MaxN = 1000000;

var
  a: array[1..MaxN] of LongInt;
  N, i: LongInt;
  lonelyNumber, lonelyIndex: LongInt;

begin
  Write('Nhập số phần tử của dãy số N: ');
  ReadLn(N);

  WriteLn('Nhập các phần tử của dãy số:');
  for i := 1 to N do
  begin
    Write('a', i, ': ');
    ReadLn(a[i]);
  end;

  lonelyNumber := 0;
  lonelyIndex := 0;

  // Tìm số độc thân
  for i := 1 to N do
  begin
    if a[i] <> 0 then
    begin
      lonelyNumber := a[i];
      lonelyIndex := i;
      Break;
    end;
  end;

  WriteLn('Giá trị số độc thân là: ', lonelyNumber);
  WriteLn('Vị trí của số độc thân là: ', lonelyIndex);
end.
Giải thích:

Trong đoạn mã trên, chúng ta khai báo một mảng a có kích thước tối đa MaxN để lưu trữ dãy số. Ta nhập số phần tử của dãy số N từ người dùng và sau đó nhập từng phần tử của dãy số a[i].

Tiếp theo, chúng ta duyệt qua mảng a để tìm số tự nhiên độc thân. Nếu phần tử a[i] khác 0, tức là nó không giống với các số còn lại trong dãy, chúng ta gán lonelyNumber bằng a[i] và lonelyIndex bằng i, sau đó dừng vòng lặp bằng lệnh Break.

Cuối cùng, chúng ta in ra giá trị số tự nhiên độc thân (lonelyNumber) và vị trí của số độc thân (lonelyIndex).

Bạn có thể chạy đoạn mã trên trong môi trường Pascal để tìm giá trị của số tự nhiên độc thân và vị trí của số độc thân trong dãy số.

#Dchibi2411#