Đọc vào một dãy số cho đên khi tổng của chúng lớn hơn 2014 a) Tính tổng các số dương chia hết cho 3 b) tính trung bình cộng các số đã đọc vào

0 bình luận về “Đọc vào một dãy số cho đên khi tổng của chúng lớn hơn 2014 a) Tính tổng các số dương chia hết cho 3 b) tính trung bình cộng các số đã đọc vào”

1. program Tong;
   Uses crt;
   Var
    a:array[1..100] of integer;
    i,s,d,sd:integer;
    tbc:real;
   Begin
    Clrscr;
    Writeln(‘Nhap vao cac so’);
    s:=0;i:=1;d:=1;
    While s<=2014 do
     Begin
      readln(a[i]);
      s:=s+a[i];
      d:=d+1;
     end;
    sd:=0;
    tbc:=0;
    for i:=1 to d do if (a[i]>0) and (a[i] mod 3=0) then sd:=sd+a[i];
    tbc:=s/d;
    Writeln(‘Tong cua cac so chia het cho 3 la ‘,sd);
    write(‘TBC = ‘,tbc:5:2);
    readln
   end.

   Bình luận