viết chương trình tính tổng các số chẵn với điều kiện số đó không lớn hơn số đã cho

0 bình luận về “viết chương trình tính tổng các số chẵn với điều kiện số đó không lớn hơn số đã cho”

1. Uses crt; 

   Var I, n, t, k: integer; 

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

   Begin

   Clrscr;

   Writeln(‘nhap do dai cua day n =’);readln(n); 

   For i:=1 to n do 

   Begin

   Writeln(‘Nhap mang a[‘,i, ‘]=’);

   Readln(a[i]);

   End;

   K:=a[i];

   T:=0;

   If a[i]<k then t:=a[i]+t; 

   Writeln(‘tong cac Phan tu cua day la’, t); 

   Readln

   End 

   Bình luận