cho sồ nguyên dương N và dãy số A(a1,a2…aN). Đếm các số có giá trị chẵn. ( viết thuật toán

0 bình luận về “cho sồ nguyên dương N và dãy số A(a1,a2…aN). Đếm các số có giá trị chẵn. ( viết thuật toán”

1. Bước 1: Nhập n và mảng A[1..n];

                Gán dem=0

   Bước 2: Cho i chạy từ 1 đến n

                Nếu A[i] chia hết cho 2 (A[i] mod 2=0) thì dem=dem+1

   Bước 3: Xuất ra đếm

   —————-

   Bài làm: 

   Program GTC;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,dem: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           dem:=0;
           For i:=1 to n do
                   If A[i] mod 2 = 0 then inc(dem);
           Write(‘Co ‘,dem,’ so chan’);
           Readln
   End.

   Bình luận

2. input số nguyên dươg n và dãy số 

   Output số số có giá trị chẵn

   thuật toán

   bước 1: nhập n

   bước 2: nhập dãy số a1.a2…

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

   bước 4 : in ra kq ra màn hình và kết thúc thuật toán

   mình viết chương trình luôn nha

   program hotboy;

   uses crt;

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

   n,i,s: integer;

   begin

   clrscr;

   s:=0;

   write(‘nhap so nguyen duong n’);

   readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]’);

   readln(a[i]);

   end;

   for i:=1 to n do

   if a[i] mod 2 =0 then s:=s+1;

   write(‘co so so co gia tri chan la’,s);

   readln

   end.

   Bình luận