viết ct nhập vào 1 dãy gồm 10 số nguyên. sau đó kt và đưa ra màn hình các số có giá trị lớn hơn 5 help me plsss cause mai mk thi rồi TT
2 câu trả lời
var a: array[1..10] of integer;
i: byte;
Begin
For i:=1 to 10 do
Begin
Write('a[', i, '] = '); readln(a[i]);
End;
For i:=1 to 10 do
If a[i]>5 then write(a[i], ' ');
Readln
End.
program lon_hon5;
uses crt;
var A:array[1..10] of integer;
i:byte;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
for i:=1 to 10 do
if A[i]>5 then write(A[i],' ');
readln;
end.
