0
0
1.Viết chương trình nhập vào dãy các số nguyên in ra màn hình dãy vừa nhập
2.viết chương trình nhập vào đay các số nguyên in ra màn hình dãy các số nhỏ hơn 6
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1990
1609
1.
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write ('Nhap so luong phan tu: '); readln (n);
for i:=1 to n do
begin
write ('Nhap phan tu thu ',i,': '); readln (a[i]);
end;
writeln ('Day vua nhap: ');
for i:=1 to n do write (a[i]:4);
readln;
end.
2.
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write ('Nhap so luong phan tu: '); readln (n);
for i:=1 to n do
begin
write ('Nhap phan tu thu ',i,': '); readln (a[i]);
end;
writeln ('CAc so nho hon 6 ');
for i:=1 to n do if a[i]<6 then write (a[i]:4);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
- Chương trình 1 :
uses crt;
var D : array [1 .. 100] of integer;
i, n : integer;
begin
clrscr;
write('Nhap so luong phan tu = '); readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' = ');
readln(D[i]);
end;
write('Day vua nhap : ');
for i := 1 to n do write(D[i],' ');
readln
end.
- Chương trình 2 :
uses crt;
var D : array [1 .. 100] of integer;
i, n : integer;
begin
clrscr;
write('Nhap so luong phan tu = '); readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' = ');
readln(D[i]);
end;
write('Cac so nho hon 6 : ');
for i := 1 to n do
if D[i] < 6 then write(D[i],' ');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
467
4
239
Xin vô nhóm
3060
142
3545
;-; !
347
3559
343
cho mik vô nhóm đc ko
1106
17752
1061
Vậy nhóm mk ko leo top nux hả
1106
17752
1061
Nhóm trưởng cho tui xin nghỉ 5 ngày nha Tui bận thi thử THPT nhan
1106
17752
1061
Cảm ơn