236
181
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2863
21136
program so_chan;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
begin
clrscrl;
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],' ');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
211
98
Uses crt;
Var a,n:integer;
Begin
Clrscr;
Writeln('Nhap so N='); Readln(n);
Writeln('Cac so chan trong khoang tu 1 toi ',n,' la:');
For a:=1 to n do if i mod 2 = 0 then write(a:4);
Readln
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Thanks
p/s: Chỗ nào khó hiểu, comment hỏi đáp!
Hãy giúp mọi người biết câu trả lời này thế nào?
236
181
ban oi nhập vào N số nguyên ạ
211
98
Bạn có thể thay N:real là ra số nguyên dương hay âm đều được !
Bảng tin