NL

Viết phương trình nhập mảng a gồm n phần tử in giá trị lẽ của mảng ra màn hình

KL
5 tháng 5 2023 lúc 5:56

Var array:[1..1000] of integer;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac so le la ');

For i:=1 to n do

If a[i] mod 2 <> 0 then write(a[i]:8);

Readln

End.

Bình luận (0)

Các câu hỏi tương tự
LA
Xem chi tiết
TN
Xem chi tiết
HP
Xem chi tiết
NT
Xem chi tiết
H24
Xem chi tiết
KK
Xem chi tiết
LA
Xem chi tiết
NK
Xem chi tiết
DN
Xem chi tiết