Tin học Viết phương trình ( Tìm lỗi sai )

[Team2k2]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho mk hỏi mk làm sai chỗ nào z m.n?
Đề: nhập vào từ bàn phím mảng 1 chiều có n phần tử (n nhỏ hơn 100). Với n nhập từ bàn phím. Viết chương trình in ra màn hình các phần tử chia hết cho 3 và lớn hơn 0 trong mảng.

 

[ĐứcNhật!]

Cho mk hỏi mk làm sai chỗ nào z m.n?
Đề: nhập vào từ bàn phím mảng 1 chiều có n phần tử (n nhỏ hơn 100). Với n nhập từ bàn phím. Viết chương trình in ra màn hình các phần tử chia hết cho 3 và lớn hơn 0 trong mảng.
View attachment 92420

Phần var là
A: array[1..99] of integer;

 

[SwinterKiller]

Cho mk hỏi mk làm sai chỗ nào z m.n?
Đề: nhập vào từ bàn phím mảng 1 chiều có n phần tử (n nhỏ hơn 100). Với n nhập từ bàn phím. Viết chương trình in ra màn hình các phần tử chia hết cho 3 và lớn hơn 0 trong mảng.
View attachment 92420

bạn tham khảo nè

 

[ĐứcNhật!]

View attachment 92436
bạn tham khảo nè

N < 100 nên N từ 1 -> 99 nhé!

 

[SwinterKiller]

N < 100 nên N từ 1 -> 99 nhé!

thay Nmax=99 là được chứ gì ^^

 

[siroclc]

Mình nghĩ code như này tối ưu hơn

 

[ĐứcNhật!]

View attachment 92438
Mình nghĩ code như này tối ưu hơn

Nhận xét của mk về phần Var

N < 100 nên N từ 1 -> 99 nhé!

Phần cuối Write(A) thôi

 

[Deathheart]

Cho mk hỏi mk làm sai chỗ nào z m.n?
Đề: nhập vào từ bàn phím mảng 1 chiều có n phần tử (n nhỏ hơn 100). Với n nhập từ bàn phím. Viết chương trình in ra màn hình các phần tử chia hết cho 3 và lớn hơn 0 trong mảng.
View attachment 92420

bạn ơi dùng const để khai báo n thì n sẽ có giá trị 5 sẵn không thể đổi được nên write('nhap n '); thì nó in thế thôi chứ k bao giờ nhập đc
cách sửa lỗi: khai báo n chung vs i và sửa khai báo mảng tức là :
var n,i:integer;
a:array[1..100] of intetger;
ở phần dưới thì bạn sẽ dùng lệnh:
write('nhap n ');
readln(n);
lệnh đó sẽ giúp bạn nhập n từ bàn phím
CHÚC BẠN THÀNH CÔNG