Giải bài toán sau: Rôn rất thích khảo sát tìm hiểu các dãy số. Có một hôm Rôn ngồi viết một cách ngẫu nhiên bốn số nguyên dương w, x, y, z và sau đó dành mọi thời gian rãnh của mình để xây dựng dãy số A = (a1, a2, . . ., an, . . .), trong đó: • a1 = w, • ai = (xai-1+y) mod z với i > 1. Rôn rất tự hào là đã viết được n số của dãy do mình tạo ra v…

ron.pas

{Copyright Ho Tuan Kiet@[email protected]; GNU GPL 3.0}
program ron;
uses crt;
var a: array[1..4000000] of int64;
    w, x, y, z, k, i, i2, tg: longint;
begin
 clrscr;
 write('Nhap w: ');
 readln(a[1]);
 write('Nhat x: ');
 readln(x);
 write('Nhap y: ');
 readln(y);
 write('Nhap z: ');
 readln(z);
 write('Nhap k: ');
 readln(k);
 for i:=2 to k do begin
  a[i]:=(x*a[i-1])+y;
  a[i]:=a[i] mod z;
 end;
 for i:=1 to k do begin
  for i2:=1 to k do begin
   if a[i]<a[i2] then begin
    tg:=a[i];
    a[i]:=a[i2];
    a[i2]:=tg;
   end;
  end;
 end;
 writeln(a[k]);
 readln;
end.