[Tin học 10] Trình bày thuật toán

[nguoihungsoma123]

[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.

- Đếm xem 7 số nguyên nhập vào từ bàn phím có bao nhiêu số chẵn

* Nếu được có thể giúp em vẽ luôn sơ đồ khối ! Thanks !!!

 

[khai221050]

- Đếm xem 7 số nguyên nhập vào từ bàn phím có bao nhiêu số chẵn

* Nếu được có thể giúp em vẽ luôn sơ đồ khối ! Thanks !!!

uses crt;
var A: array [1..7] of integer;
n,i:integer;
begin
clrscr;
n:=0;
writeln('Nhap 7 so nguyen');
for i:=1 to 7 do 
begin
readln(A[i]);
if A[i] mod 2=0 then n:=n+1;
end;
writeln('Co',n,'so chan');
readln;
end.