Viết chương trình: – Nhập vào 1 dãy số nguyên từ bàn phím. – Đưa ra màn hình số lượng phần tử dương, âm của dãy. – Đưa ra màn hình số lượng phần tử ch

0 bình luận về “Viết chương trình: – Nhập vào 1 dãy số nguyên từ bàn phím. – Đưa ra màn hình số lượng phần tử dương, âm của dãy. – Đưa ra màn hình số lượng phần tử ch”

1. Viết chương trình: – Nhập vào 1 dãy số nguyên từ bàn phím. – Đưa ra màn hình số lượng phần tử dương, âm của dãy. – Đưa ra màn hình số lượng phần tử chẵn, lẻ của dãy.

    

                                                                 Bài làm

   uses crt;

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

   i,n,da,dd,dl,dc: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

   if a[i]<0 then da:=da+1;

   if a[i]>0 then dd:=dd+1;

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

   if a[i] mod 2<>0 then dl:=dl+1;

   end;

   writeln (‘so luong phan tu duong: ‘,dd);

   writeln (‘so luong phan tu am: ‘,da);

   writeln (‘so luong phan tu chan: ‘,dc);

   writeln (‘so luong phan tu le: ‘,dl);

   readln;

                                    xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

   Bình luận

2. uses crt;

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

   i,n,da,dd,dl,dc: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

   if a[i]<0 then da:=da+1;

   if a[i]>0 then dd:=dd+1;

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

   if a[i] mod 2<>0 then dl:=dl+1;

   end;

   writeln (‘so luong phan tu duong: ‘,dd);

   writeln (‘so luong phan tu am: ‘,da);

   writeln (‘so luong phan tu chan: ‘,dc);

   writeln (‘so luong phan tu le: ‘,dl);

   readln;

   end.

   Bình luận