Viết ct nhập mảng 1 chiều gồm 100 phần tử thuộc kiểu nguyên : a) In ra màn hình danh sách các số chẵn b) In ra màn hình danh sách các số từ 1 đến 10 c

0 bình luận về “Viết ct nhập mảng 1 chiều gồm 100 phần tử thuộc kiểu nguyên : a) In ra màn hình danh sách các số chẵn b) In ra màn hình danh sách các số từ 1 đến 10 c”

1. program phuongt;

   uses crt;

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

           i: integer;

   begin

             clrscr;

             for i:=1 to 100 do

             begin

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

             end;

             write(‘a) Danh sach cac so chan: ‘);

             for i:=1 to 100 do if A[i] mod 2 = 0 then write(A[i]:3);

             writeln();

             write(‘b) Danh sach cac so tu 1 den 10: ‘);

             for i:=1 to 10 do write(‘A[i]:3’);

             writeln();

             write(‘c) Danh sach cac so le: ‘);

             for i:=1 to 100 do if A[i] mod 2 = 1 then write(A[i]:3);

             readln

   end.

   Bình luận