Viết chương trình nhập vào một dãy số gồm n số nguyên dương ( n nhỏ hơn hoặc bằng 250) a) In ra màn hình dãy số vừa nhập b) Tính tổng các số âm tron

Viết chương trình nhập vào một dãy số gồm n số nguyên dương ( n nhỏ hơn hoặc bằng 250)
a) In ra màn hình dãy số vừa nhập
b) Tính tổng các số âm trong dãy

0 bình luận về “Viết chương trình nhập vào một dãy số gồm n số nguyên dương ( n nhỏ hơn hoặc bằng 250) a) In ra màn hình dãy số vừa nhập b) Tính tổng các số âm tron”

  1. program mang;

    uses crt;

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

          n,i,T: integer;

    Begin

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

             for i:=1 to n do

             begin

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

             end;

             write(‘Day so vua nhap la: ‘);

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

             writeln;

             for i:=1 to n do

                  if A[i]<0 then T:=T+A[i]

                  else write(‘Khong co so am’);

             write(‘T = ‘,T);

             readln

    End.

    Bình luận
  2. uses crt;

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

        n,i,s,dem,sch,x,demx:integer;

    begin

       clrscr;

       write(‘Nhap n: ‘); readln(n);

       write(‘Nhap x: ‘); readln(x);

       s:=0; dem:=0; sch:=0; demx:=0;

       for i:=1 to n do

       begin

          write(‘Nhap phan tu thu ‘,i,’: ‘);

          readln(A[i]);

          s:=s+A[i];

          if A[i]<0 then inc(dem);

          if A[i] mod 2 = 0 then sch:=sch+A[i];

          if A[i] = x then inc(demx);

       end;

       for i:=1 to n do write(A[i]:4);

       writeln;

       writeln(‘Tong cac phan tu trong day la: ‘,s);

       writeln(‘Co ‘,dem,’ so hang la so nguyen am’);

       writeln(‘Tong cac so chan la: ‘,sch);

       writeln(‘So luong cac phan tu bang ‘,x,’: ‘,demx);

       readln

    end.

    Bình luận

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