myheart Teacher
Tổng số bài gửi : 300 Join date : 22/11/2008
| Tiêu đề: Một số bài tập về mảng 1 chiều (bài căn bản) Sat Apr 18, 2009 5:51 pm | |
| 1- Viết chương trình nhập vào 1 mảng số nguyên có n phần tử (0<n<=100). Tìm và in ra các phần tử chẵn trên cùng 1 dòng Có bao nhiêu phần tử < 0, và có bao nhiêu phần tử chia hết cho 3 2- Viết chương trình nhập vào 1 mảng ký tự có n phần tử (0<n<=256). - Tìm xem có bao nhiêu ký tự A có trong mảng? - In ra mảng ký tự vừa nhập vào trên cùng 1 dòng 3 - Viết chương trình nhập vào 1 mảng số nguyên có n phần tử (0<n<=100). Tìm phần tử âm lớn nhất và vị trí của nó Có bao nhiêu phần tử > 0. Tính trung bình cộng các phần tử này. | |
|
Gorse160495 Moderator
Tổng số bài gửi : 494 Join date : 22/11/2008 Age : 28 Đến từ : Qúa Khứ, Hiện Tại và Tương Lai
| Tiêu đề: Re: Một số bài tập về mảng 1 chiều (bài căn bản) Sun Apr 19, 2009 11:48 am | |
| Mấy bài trên để hồi nghiền ngẫm giải sau. Bi giờ tạm thời up kết quả chương trình của bài tập về nhà thầy ra trên lớp đã. Bài này nó giông giống vế đầu của bài 3 phía trên ^^
Nhập 1 mảng số nguyên gồm n phần tử. Tìm xem có số nguyên âm lớn nhất hay không. In giá trị của số nguyên âm lớn nhất đó ra màn hình.
var i,n,max:integer; kt:boolean; a:array [1..20] of integer;
begin
write('Nhap n:'); readln(n); kt:=false;
for i:=1 to n do begin write('Moi nhap so thu',i:2); readln(a[i]); end;
for i:=1 to n do if a[i]<0 then begin max:=a[i]; kt:=true; end;
if kt then begin for i:=1 to n do if (a[i]<0) and (a[i]>max) then max:=a[i]; writeln('So nguyen am lon nhat la:', max:4); end else write('Khong co so nguyen am trong day'); readln;
end. Bài giải phía trên, từng cặp begin - end đều được tô màu theo cặp để khỏi nhầm lẫn. Khi làm bài kiểm tra nhớ chú ý kiểm tra lại xem có thiếu end không nhá ^^
| |
|