viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím và tìm ra các số chẵn

0 bình luận về “viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím và tìm ra các số chẵn”

1. program sochan;

   uses crt;

   var i,n,S:integer; 

   A:array[1..100] of integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   S:=0;

   write(‘cac so chan la: ‘);

   for i:=1 to n do

   if i mod 2=0 then ;

   write(i:4);

   readln

   end.

   Bình luận

2. program sochan;

   uses crt;

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

         n,i: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

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

            end;

            write(‘Cac so chan la trong mang: ‘);

            for i:=1 to n do

                 if A[i] mod 2=0 then write(A[i],’  ‘);

            readln

   End.

   Bình luận