Nhập vào một mảng A,tìm số lớn nhất và số nhỏ nhất.Hãy tính tổng các số nguyên thuộc đoạn [min,max] mà các số đó không xuất hiện trong mảng A

Nhập vào một mảng A,tìm số lớn nhất và số nhỏ nhất.Hãy tính tổng các số nguyên thuộc đoạn [min,max] mà các số đó không xuất hiện trong mảng A

0 bình luận về “Nhập vào một mảng A,tìm số lớn nhất và số nhỏ nhất.Hãy tính tổng các số nguyên thuộc đoạn [min,max] mà các số đó không xuất hiện trong mảng A”

  1. uses crt;
    var n,i,min,max,s,s1:longint; a:array[1..100000]of longint;
    begin
    clrscr;
       write(‘n=’);readln(n);
       min:=high(longint);
       max:=low(longint);
       for i:=1 to n do 
          begin 
             write(‘a[‘,i,’]=’);readln(a[i]);
             if a[i]<min then min:=a[i]; 
             if a[i]>max then max:=a[i];
             inc(s1,a[i]);
          end; 
       for i:=min to max do inc(s,i);
       writeln(‘Tong cac so nguyen thuac doan [min,max]: ‘,s-s1);
    readln
    end.

    Bình luận
  2. uses crt;
    var a:array[1..1000000] of longint;
            n,i,max,min,s,j:longint;
    begin
            clrscr;
            write(‘Nhap so luong phan tu: ‘); readln(n);
            for i:=1 to n do
                            begin
                                    write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(a[i]);
                            end;
            for j:=1 to n do
            max:=a[1];min:=a[1];
            for i:=2 to n do
                    begin
                            if a[i]>max then max:=a[i];
                            if a[i]<min then min:=a[i];
                    end;
            writeln(‘Max: ‘,max);
            writeln(‘Min: ‘,min);
            for j:=min+2 to max-2 do if j<>a[i] then inc(s,j);
            writeln(‘Tong cac so thuoc doan [min,max] (khong xuat hien trong mang): ‘,s);
            readln;
    end.

    Bình luận

Viết một bình luận