Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hoàng Giang

program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.

cho em hỏi chương trình trên đúng ko ạ?

Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 20:18

Không đúng nha bạn


Các câu hỏi tương tự
Thuyết Dương
Xem chi tiết
Bùi Jessica
Xem chi tiết
curtis lê
Xem chi tiết
Vy Nguyễn Khánh
Xem chi tiết
Triệu Thị Thu Trang
Xem chi tiết
Nguyễn Trần Hoa Cương
Xem chi tiết
Nguyen Ha Cam Nhung
Xem chi tiết
Cà Thúy Quỳnh
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết