Vct nhập số n vào mảng. Xuất ra các cặp số gần nhau Giúp với ạ

0 bình luận về “Vct nhập số n vào mảng. Xuất ra các cặp số gần nhau Giúp với ạ”

1. uses crt;

   var a:array[1..10000000] of longint;

   n,i:longint;

   begin

   clrscr;

   write(‘n=’);readln(n);

   for i:=1 to n do 

   begin

   write(‘a[‘,i,’]=’);readln(a[i]);

   end;

   for i:=1 to n do

   begin 

   if i mod 2=0 then writeln(a[i-1],’ va ‘,a[i]);

   end;

   readln;

   end.

   Bình luận

2. Có thế bn viết sai đề: xuất ra các cặp số giống nhau.

   Thuật toán:

   procedure xuly;
   var i,j:integer;
   begin

           for j := 1 to n-1 do
           for i := j+1 to n do
           begin
                   if a[i] = a[j]  then
                   begin
                           write(a[i]);
                   end;
           end;
   end;

   Bình luận