Đưa ra màn hình các số lẻ của dãy số( làm mẫu để mk làm các bài tin khác)
Đưa ra màn hình các số lẻ của dãy số( làm mẫu để mk làm các bài tin khác)
By Bella
By Bella
Đưa ra màn hình các số lẻ của dãy số( làm mẫu để mk làm các bài tin khác)
program mau;
uses crt;
var A: array [1..100] of integer;
n,i: byte;
Begin
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac so le cua day so: ‘);
for i:=1 to n do
if A[i] mod 2<>0 then write(A[i],’ ‘);
readln
End.
uses crt;
var n,i:byte;
A:array[0..200] of integer;
BEGIN
clrscr;
write(‘Nhap so phan tu:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
end;
write(‘Cac so le:’);
for i:=1 to n do
if a[i] mod 2=1 then write(a[i],’ ‘);
readln
END.
Chúc bạn học tốt!