Viết ct nhập mảng 1 chiều gồm 100 phần tử thuộc kiểu nguyên : a) In ra màn hình danh sách các số chẵn b) In ra màn hình danh sách các số từ 1 đến 10 c) In ra mà hình danh sách các số lẻ
1 câu trả lời
program phuongt;
uses crt;
var A: array[1..100] of integer;
i: integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,'] = '); readln(A[i]);
end;
write('a) Danh sach cac so chan: ');
for i:=1 to 100 do if A[i] mod 2 = 0 then write(A[i]:3);
writeln();
write('b) Danh sach cac so tu 1 den 10: ');
for i:=1 to 10 do write('A[i]:3');
writeln();
write('c) Danh sach cac so le: ');
for i:=1 to 100 do if A[i] mod 2 = 1 then write(A[i]:3);
readln
end.
