Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Wasel TV

Viết chương trình nhập vào một dãy số tính tổng các số không chia hết cho 5 có trong dãy vừa nhập

Phía sau một cô gái
31 tháng 3 2023 lúc 20:22

program tinhTong;

var

     n,i,s: integer;

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

begin

     write('Nhap so luong phan tu: ');

     readln(n);

     for i := 1 to n do

     begin

          write('a[',i,'] = ');

          readln(a[i]);

     end;

     s := 0;

     for i := 1 to n do

     begin

          if (a[i] mod 5 <> 0) then

               s := s + a[i];

     end;

     writeln('Tong cac so khong chia het cho 5: ', s);

     readln;

end.

Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:29

program TinhTong;
var
   n, i, s, x: integer;
begin
   write('Nhap so luong phan tu cua day: ');
   readln(n);

   s := 0;
   for i := 1 to n do
   begin
      write('Nhap phan tu thu ', i, ': ');
      readln(x);

      if (x mod 5 <> 0) then
         s := s + x;
   end;

   writeln('Tong cac so khong chia het cho 5 la: ', s);
end.


Các câu hỏi tương tự
Nguyễn kiên
Xem chi tiết
Vẹt Vẹt
Xem chi tiết
Phạm Linh
Xem chi tiết
Ngọc Hân Lương Thị
Xem chi tiết
Vân anh
Xem chi tiết
Hoan Lý
Xem chi tiết
FF PKL
Xem chi tiết
Trần Thúy Ngọc
Xem chi tiết
Bao Duong
Xem chi tiết