B3: danh sách

trùi ui!!! sai rui fải hk?? sửa nghe bà con ơi!!
program danh_sach_lop;
var i,n:string;
      a: array [1..250] of integer;
begin
write('nhap so ban trong lop cua ban ');
readln(n);
for i:=1 to n do
begin
write(' ban thu ',i,' la ');
read(a[i]);
end;
for i:=1 to n do
writeln(a[i]:4);
readln
end.

B4: tổng số chẳn lẻ.

bà con ơi! xem giúp nha. hehehe k bt đúng sai

program tong_chan_le;

var n,i,c,l:integer;

      a: array [1..250] of integer;

begin

c:=0;

l:=0;

writeln(' nhap so phan tu ban muon nhung nho khong vuot wa 250 do nha: ');

readln(n);

for i:=1 to n do

begin

write('phan tu thu ',i,' la');

read(a[i]);

end;

for i:=1 to n do

begin

if (a[i] mod 2=0) then

c:=c+a[i]

else l:=l+a[i];

end;

writeln('tong so chan la: ',c);

writeln('tong so le la: ',l);

readln

end.

in bảng cửu chương

ai đó chạy chương trình giùm nha!!! chưa chạy thử nên có trùi mới mới biết được hk????
program cuuchuong;
var i,n:integer;
      a: array [1..250] of integer;
begin
writeln('nhap bang cuu chuong ban muon xem ');
readln(n);
for i:=1 to 10 do
read(a[i]);
begin
writeln( n,'*',a[i],'=',a[i]*n:4);
readln
end;
readln
end.

Bài tập về mảng hoàn thành ngày 23-11-2012

Bài 1: Nhập vào 1 dãy n phần tử. Sắp xếp dãy đó theo thứ tự tăng dần và in ra dãy sau khi sắp.
Bài 2:  Sử dụng cấu trúc mảng trong Pascal in ra bảng cửu chương.
Bài 3: Dùng cấu trúc mảng hãy nhập vào danh sách lớp bạn và in ra danh sách đó theo thứ tự tên đã nhập.
Bài 4: Nhập vào 1 dãy và in ra tổng các số chẵn, lẻ.

INDAYSO

nhập hàm số nguyên in ra day số đó....
bài này như dzầy mà tui khổ sở nèk trùi!!!!
program indayso;
uses crt;
var n,i:integer;
 arr:array [1..100] of integer;
begin
clrscr;
        writeln('nhap sp phan tu:  ');
              readln(n);
for i:=1 to n do
 readln(arr[i]);
 for i:=1 to n do
     write (arr[i] : 4);
readln;
end.

Tinh. K.T.

chuoi bai tap ...khikhikhi......
program tinh;
 uses crt;
VAR n,i,d,c,b,l,t: integer;
a: array [1..100] of integer;
begin
clrscr;
writeln('nhap day so n '); readln(n);
d:=0;
t:=0;
c:=0;
l:=0;
b:=0;
for i:=1 to n do
begin
write('phan tu thu ',i,' la');
read(A[i]);
if (A[i]>0) then
d:=d+A[i];
if (A[i] mod 2=0) then
begin
c:=c+A[i];
t:=t+1;
end;
if (A[i] mod 3=0) then
begin
b:=b+A[i];
l:=l+1;
end;
readln
end;
writeln('tong cac so duong la ',d);
writeln('tong cac so chan la ',c);
writeln('so luong so chan la ',t);
writeln('tong cac so chia het cho 3 la ',b);
writeln('so luong cac so chia het cho 3 la ',l);
readln
end.

Borland Pascal 7.0

Tải file này xuống và cài đặt nếu máy chưa có pascal.
Link: http://www.mediafire.com/?o9o53tergtzhm9j
Bấm Download!

Xin chào

Hello