Thiên Phú
01/01/1970
| Số câu hỏi | 0 |
| Số câu trả lời | 2 |
| Điểm | 11 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (2)
-
Thiên Phú đã trả lời trong câu hỏi: Viết chương trình nhập vào n bất kì in ra màn hình n vừa nhập Cách đây 5 năm
program oken;
uses crt;
var a: array [1..100] of integer;
i,n:integer;
begin
clrscr;
write('nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']: '); readln(a[i]);
end;
write('day so vua nhap: ');
for i:=1 to n do
write(a[i],' ');
readln;
end. -
Thiên Phú đã trả lời trong câu hỏi: Nhập vào n số và in ra các số chẵn Cách đây 5 năm
program oken;
uses crt;
var a: array [1..100] of integer;
i,n:integer;
begin
clrscr;
write('nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']: '); readln(a[i]);
end;
write('cac so chan trong day so tren: ');
for i:=1 to n do
if a[i] mod 2 =0 then write(a[i],' ');
readln;
end.
