giúp em với 1.viết chương trình sử dụng biến mảng số nguyên nhập n phần tử và in ra các giá trị phần tử là số chẵn. 2.viết CT sử dụng mảng số nguyên

0 bình luận về “giúp em với 1.viết chương trình sử dụng biến mảng số nguyên nhập n phần tử và in ra các giá trị phần tử là số chẵn. 2.viết CT sử dụng mảng số nguyên”

1. 1.

   program ct;

   uses crt;

   var i,n: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;

   for i:=1 to n do

   if A[i] mod 2=0 then writeln(‘cac so chan la’,A[i]);

   readln

   end.

   2

   program ct;

   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;

   for i:=1 to n do

   if A[i]>0 then s:=s+A[i];

   writeln(‘tong cac phan tu duong la:’,s);

   readln

   end.

   Bình luận