Bài tập Pascal Free Pascal 01 đến 16 Có bài giải (từ đơn giản đến nâng cao) BY Nguyễn Anh Việt
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Bài tập Pascal – Từ cơ bản đến nâng cao
Bài 4.01 – Mảng 1 chiều
(Mảng A: Array [1..10] of Integer là dãy chứa 10 Số nguyên từ A[1] đến A[10] )
Bạn hãy nhập một dãy số nguyên và tính Tổng các số trong dãy đó.
Var
A: Array [1..10] of Integer;
I, n, Tong: Integer;
Begin
WriteLn('Hay nhap so phan tu cua day so');
ReadLn(n);
{Nhập dãy số}
For i:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i);
ReadLn(A[i]);
End;
{Tính tổng dãy số}
Tong := 0;
For i:=1 to n do
Tong := Tong + A[i];
{In ra Tổng dãy số}
WriteLn('Tong cua day so la ', Tong);
ReadLn;
End.
Bài 4.02 – Max : Số lớn nhất của dãy số
(Dãy 1, 4, 7, 5, 2 có Số lớn nhất là 7, nằm ở vị trí 3)
Bạn hãy nhập một dãy số nguyên và tìm Số lớn nhất cùng với vị trí của nó trong dãy đó.
Var
A: Array [1..10] of Integer;
i, n, ViTri, Max: Integer;
Begin
WriteLn('Hay nhap so phan tu cua day so');
ReadLn(n);
{Nhập dãy số}
For i:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i);
ReadLn(A[i]);
End;
{Tìm số lớn nhất và vị trí}
Max := A[1];
Biên soạn: Th.s Nguyễn Anh Việt Trang 12