Tin học Viết hàm

[kimanh1501.hy@gmail.com]

[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ọi người giúp mình làm bài này với mình đang cần gấp, mai mình thi học kì rồi. Thank you
bài 1: Cho mảng T gồm N( N<=100) phần tử thuộc kiểu nguyên
a, Viết thủ tục nhập giá trị cho mảng T từ bàn phím
b, Viết hàm đếm trong dãy có bao nhiêu số lẻ
Viết chương trình sử dụng hai chương trình con trên, viết ra màn hình kết quả tính được

Bài 2 : Cho tệp DULIEU.TXT gồm nhiều dòng mỗi dòng chứa 1 xâu. Mở tệp DULIEU.txt đọc các xâu trên mỗi dòng, xóa bỏ các dấu cách trong xâu, ghi xâu vào tệp Xoacach.out

 

[Everything Stays]

Bài 1: đặt 1 mảng t có 100 phần tử
viết chương trình nhập giá trị cho t, cho i chạy từ 1 đến 100
rồi viết chương trình kiểm tra t có chia hết cho 2 không, cho i chạy từ 1 đến 100
cho a=0
nếu t không chia hết cho 2 thì cho a=a+1
số a chính là số số lẻ có trong mảng

 

[dương đại uyển]

Bài 1: đặt 1 mảng t có 100 phần tử
viết chương trình nhập giá trị cho t, cho i chạy từ 1 đến 100
rồi viết chương trình kiểm tra t có chia hết cho 2 không, cho i chạy từ 1 đến 100
cho a=0
nếu t không chia hết cho 2 thì cho a=a+1
số a chính là số số lẻ có trong mảng

bạn trả ời như vậy mình cũng làm đc
quan trọng là gõ hẳn cách ra bạn ạ

 

[ka1412]

Mọi người giúp mình làm bài này với mình đang cần gấp, mai mình thi học kì rồi. Thank you
bài 1: Cho mảng T gồm N( N<=100) phần tử thuộc kiểu nguyên
a, Viết thủ tục nhập giá trị cho mảng T từ bàn phím
b, Viết hàm đếm trong dãy có bao nhiêu số lẻ
Viết chương trình sử dụng hai chương trình con trên, viết ra màn hình kết quả tính được

Bài 2 : Cho tệp DULIEU.TXT gồm nhiều dòng mỗi dòng chứa 1 xâu. Mở tệp DULIEU.txt đọc các xâu trên mỗi dòng, xóa bỏ các dấu cách trong xâu, ghi xâu vào tệp Xoacach.out

B1:
procedure nhapmang(n:word);
begin
for i:=1 to n do
begin
write('a[',i,']:');readln(a);
end;
end;
function sole(n:word):word;
var s:word;
begin
for i:=1 to n do if a mod 2 <> 0 then inc(s);
end;