cho dãy số nguyên A gồm a1,a2,…aN hãy xác định bài toán và viết thuật toán để đếm các số âm trong dãy

0 bình luận về “cho dãy số nguyên A gồm a1,a2,…aN hãy xác định bài toán và viết thuật toán để đếm các số âm trong dãy”

1. input số số hạng và dãy số nguyên a1,a2…

   output : đếm các số âm

   thuật toán

   bước 1 : nhập các phần tử trong dãy A

   bước 2: cho biến đếm chạy từ 1 đến n

   gán biến s <- 0

   bước 3 :nếu a[i] <0 thì s:=s+1

   bước 4: in ra kết quả và kết thúc thuật toán

   Bình luận

2. Program UKA;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,d:longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;
           d:=0;
           For i:=1 to n do
                   If A[i]>=0 then inc(d);
           Write(‘Co ‘,d,’ so khong am’);
           Readln
   End.

   Bình luận