việt chương trình nhập vào dãy n số nguyên in ra số vừa nhập ra màn hình màn hình in ra các số chẵn bên 1 hàng càng cuối hàng in tổng các số chẵn giú

0 bình luận về “việt chương trình nhập vào dãy n số nguyên in ra số vừa nhập ra màn hình màn hình in ra các số chẵn bên 1 hàng càng cuối hàng in tổng các số chẵn giú”

1. Program kthkII;

   uses crt;

   var i, n, s, N : integer;

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

   begin

   write(‘Nhap so nguyen N: ‘); readln(N);

   write(‘Nhap do dai cua day so: ‘); readln(n);

   for i:=1 to n do

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

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

   s:=0;

   for i:=1 to n do s:=s+A[i];

   writeln(‘Tong cac so la: ‘, s);

   readln;

   End.

   CHÚC BN HỌC TỐT

   Bình luận

2. program tongcacsole;

   uses crt;

   var i, n:integer;

   s: longint;

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

   begin

   clrscr;

   write ( ‘ hay nhap so phan tu cua day so, n= ‘); readln(n);

   writeln( ‘ nhap cac phan tu cua day so: ‘);

   for i := 1 to n do

   begin

   write ( ‘ a[ ‘ , i , ‘ ] = ‘ ); readln(a[ i] );

   end;

   for i := 1 to n do

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

   writeln ( ‘ tong cac so le: ‘ , s);

   readln

   end.

   *bạn có thể thay dòng :

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

   bằng dòng:

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

   =>đều cho cùng 1 kết quả nhé

   Bình luận