Tin học Bài tập về dãy số (mảng)

[tydfdg]

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

1 NHap vao 1 so nguyen. Viet cong thuc in ra cac so chan trong day
2 Nhap vao N so nguyen. Viet cong thuc in ra:
- Cac so o vi tri so le
- Tong cac phan tu chan
- So luong cac so chan va le

 

[ledoanphuonguyen]

1 NHap vao 1 so nguyen. Viet cong thuc in ra cac so chan trong day

Nhập vào 1 dãy số nguyên đúng không ạ? Bạn đã học tới mảng 1 chiều chưa?

 

[tydfdg]

Nhập vào 1 dãy số nguyên đúng không ạ? Bạn đã học tới mảng 1 chiều chưa?

array ak

 

[ledoanphuonguyen]

array ak

Đúng rồi bạn

 

[tydfdg]

Đúng rồi bạn

mới hc bạn chưa quen lw

 

[ledoanphuonguyen]

Mình làm thử, bạn đọc không hiểu chỗ nào thì nói nha
program bt;
uses crt;
var A:array [1..100] of integer;
i, n: integer;
begin
writeln('Nhap n:');
readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu',i,':');
readln(A);
end;
writeln('Cac so chan la:');
for i:=1 to n do
if (A mod 2 = 0) then write(A);
readln;
end.

 

[son_gohan]

Bạn nên đặt tiêu đề rõ ràng hơn nhé, để mọi người dễ theo dõi

 

[tydfdg]

Mình làm thử, bạn đọc không hiểu chỗ nào thì nói nha
program bt;
uses crt;
var A:array [1..100] of integer;
i, n: integer;
begin
writeln('Nhap n:');
readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu',i,':');
readln(A);
end;
writeln('Cac so chan la:');
for i:=1 to n do
if (A mod 2 = 0) then write(A);
readln;
end.

hinh như bạn thiếu readln(A); mới đúng

 

[ledoanphuonguyen]

hinh như bạn thiếu readln(A); mới đúng

Ừ, nãy mình có ghi đấy, nhưng do diendanhocmai thì không đánh như vậy được, ngay cả bài trả lời của bạn cũng đâu có viết được đâu )

 

[ka1412]

Ừ, nãy mình có ghi đấy, nhưng do diendanhocmai thì không đánh như vậy được, ngay cả bài trả lời của bạn cũng đâu có viết được đâu )

Cho bài vào chỗ mã ấy thì hiện được =)

 

[ledoanphuonguyen]

Cho bài vào chỗ mã ấy thì hiện được =)

Chỗ mã là gì? @>@

 

[ka1412]

Ấn vào cái bên trái của fx rồi chon mã thôi :v

 

[Haworthia]

[TEX]program bt; uses crt; var i,n:integer; begin clrscr; write('Nhap n : ');readln(n); write('So chan <= n la : '); i:=1; while i<= n do begin if i mod 2 = 0 then write(i,', '); i:= i + 1; end; readln; end.[/TEX] Bạn chạy thử mã chương trình này xem có ổn không ? Mình khá lười nên đoạn mã khá đơn giản ^^"