a) Xuất ra màn hình ( Pascal):

-Họ và tên học sinh

-Lớp

-Số thứ tự

uses crt;
var lop,ho_ten,thu_tu: string;
begin
clrscr;
write('nhap ten: '); readln(ho_ten);
write('nhap lop: '); readln(lop);
write('nhap thu tu: '); readln(thu_tu);
writeln('ho ten: ',ho_ten);
writeln('lop: ',lop);
write('so thu tu: ',thu_tu);
readln;
end.

b) nhập vào mảng các số nguyên

uses crt;
var a: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(a[i]);
end;
readln;
end.

c)xuất ra màn hình các phần tử lẽ

uses crt;
var a: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('cac phan tu le trong day la:');
for i:=1 to n do
if a[i] mod 2 <> 0 then write(a[i]:4);
readln;
end.

uses crt;
var n,i,dem,tong: integer;
    a: array[1..1000] of integer;
begin clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do
begin
tong:=tong+a[i];
if (a[i] mod 2=1) then dem:=dem+1;
end;
writeln('Tong cac so la ',tong,' va co ',dem,' so le!');
readln end.