Viết chương trình nhập vào mạng A gồm N phần tử (N nhập từ bàn phím) câu a: in ra các số lẻ ,câu b: in ra tổng phần tử chẵn ,câu c: in ra các số nguyê

0 bình luận về “Viết chương trình nhập vào mạng A gồm N phần tử (N nhập từ bàn phím) câu a: in ra các số lẻ ,câu b: in ra tổng phần tử chẵn ,câu c: in ra các số nguyê”

1. Program BTT;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,s: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
                                       exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap so luong phan tu: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           s:=0;
           Write(‘Cau a: Xuat ra cac phan tu la so le: ‘);
           For i:=1 to n do
           Begin
                   If A[i] mod 2 = 0 then s:=s+A[i];
                   If A[i] mod 2 = 1 then Write(A[i],’ ‘);
           End;

           Writeln;

           Write(‘Cau b: Tong cac phan tu la so chan: ‘,s);
           Writeln;

           Write(‘Cau c: Xuat ra cac so nguyen to: ‘);
           For i:=1 to n do
                   If ngto(A[i]) then Write(A[i],’ ‘);
           Readln
   End. 

   Bình luận

2. Program CTNMT;

   Uses crt;

   Var n,i,dem: longint;

   A: array [1..1000] of longint;

   Begin

   Writeln(‘Ban hay N’); Readln(n);

   For i:=1 to n do

   Begin

   Writeln(‘Nhap so thu ‘,i); Readln(a[i]);

   End;

   Writeln(‘In ra mang:’);

   For i:1 to n do Write(a[i]:5);

   Writeln;

   Writeln(‘In ra so chan trong mang’);

   For i:= 1 to n do

   Begin

   If (a[i] mod 2) = 0 then Write(a[i]:5)

   If a[i] < 0 then dem:= dem +1;

   End;

   Writeln(‘so so nguyen am la: ‘,đem);

   Readln;

   End.

   Bình luận