Viết chương trình thực hiện các công việc sau -nhập dãy N số nguyên từ bàn phím (1<=N<=100) -in dãy và tổng các giá trị trong dãy lên màn hình -tìm v

Viết chương trình thực hiện các công việc sau
-nhập dãy N số nguyên từ bàn phím (1<=N<=100) -in dãy và tổng các giá trị trong dãy lên màn hình -tìm và in số lớn nhất của dãy số -in các số chẵn và tổng của chúng ra màn hình Giúp mình với và viết ct hộ mình

0 bình luận về “Viết chương trình thực hiện các công việc sau -nhập dãy N số nguyên từ bàn phím (1<=N<=100) -in dãy và tổng các giá trị trong dãy lên màn hình -tìm v”

  1. program Day;

    uses crt;

    var A:array [1..100] of integer;

          n,i,T,max,Tc: integer;

    Begin

             clrscr;

             write(‘Nhap so phan tu: ‘); readln(n);

             max:=1;

             for i:=1 to n do

             begin

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

                      T:=T+A[i];

                      if max<A[i] then max:=A[i];

             end;

             write(‘Day vua nhap: ‘);

             for i:=1 to n do write(A[i],’  ‘);

             writeln;

             writeln(‘Tong cac so trong man = ‘,T);

             writeln(‘So lon nhat: ‘,max);

             write(‘Cac so chan: ‘);

             for i:=1 to n do

                  if A[i] mod 2=0 then

                  begin

                           write(A[i],’  ‘);

                           Tc:=Tc+A[i];

                  end;

             writeln;

             write(‘Tong cac so chan = ‘,Tc);

             readln

    End.

    Bình luận

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