Bài 4. Sử dụng biến trong chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đỗ Phạm Thế Đại

Em hãy in ra các phần tử chẵn có trong mảng, biết số phần tử của mảng và giá trị của các phần tử của mảng được nhập từ bàn phím.

HT.Phong (9A5)
28 tháng 4 2023 lúc 5:44

Uses crt;

var i,n: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

write(a[i],'  ');

readln;

end.

Kiều Vũ Linh
28 tháng 4 2023 lúc 9:27

var a:array[1..1000] of integer;

i,n:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

write('Cac phan tu chan trong mang la: ');

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i]:8);

readln

end.


Các câu hỏi tương tự
Lê Thị Thu Hà
Xem chi tiết
Trần Ngọc My
Xem chi tiết
lol 1698
Xem chi tiết
Lãnh Tử Thiên
Xem chi tiết
Huỳnh Thanh Trúc
Xem chi tiết
Thư Nguyễn
Xem chi tiết
Trần Quốc Huy
Xem chi tiết
Philip Ha Sha
Xem chi tiết
khoa nguyen
Xem chi tiết