Xác định bài toán và trình bày thuật toán giải bài toán bằng cách liệt kê. Cho N và dãy số a1,…,aN a, Đếm các số âm trong dãy b, Tính tổng các số

0 bình luận về “Xác định bài toán và trình bày thuật toán giải bài toán bằng cách liệt kê. Cho N và dãy số a1,…,aN a, Đếm các số âm trong dãy b, Tính tổng các số”

1. a+b:

   program ctpt;

   uses crt;

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

          n, i, d, S: integer;

   begin

           clrscr;

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

           for i:=1 to n do

           begin

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

           end;

           d:=0;

           S:=0;

           for i:=1 to n do if A[i]<0 then d:=d+1;

           writeln(‘Cac so am trong day: ‘, d);

           for i:=1 to n do if A[i]>0 then S:=S+A[i];

           writeln(‘Tong = ‘, S);

           readln

   end.

   Bình luận