Viết chương trình nhập vào dãy số và thực hiện: – xác định giá trị lớn nhất giá trị nhỏ nhất. – tính tổng trung bình dãy số vừa nhập. – tính tổng các

Viết chương trình nhập vào dãy số và thực hiện:
– xác định giá trị lớn nhất giá trị nhỏ nhất.
– tính tổng trung bình dãy số vừa nhập.
– tính tổng các số chẵn số lẻ của dãy số.

0 bình luận về “Viết chương trình nhập vào dãy số và thực hiện: – xác định giá trị lớn nhất giá trị nhỏ nhất. – tính tổng trung bình dãy số vừa nhập. – tính tổng các”

  1. uses crt;
    var a:array[1..1000000] of longint;
           n,i,max,min,s,s1,s2:integer;
    begin
           clrscr;
           write(‘Nhap so luong phan tu: ‘); readln(n);
           s:=0;s1:=0;s2:=0;
           for i:=1 to n do 
                  begin
                         write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                         inc(s,a[i]);
                         if a[i] mod 2=0 then inc(s1,a[i]);
                         if a[i] mod 2=1 then inc(s2,a[i]);
                  end;
           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);
           writeln(‘Trung binh: ‘,s/n:0:2);
           write(‘Tong so chan, so le: ‘,s1+s2);
           readln;
    end.

    Bình luận

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