Ngân hàng câu hỏi chương IV - tin 11

CHƯƠNG IV: KIỂU DỮ LIỆU CÓ CẤU TRÚC
Bài 11: Kiểu mảng
Cho mảng a gồm n phần tử n<=15. Giá trị từng phần tử là số nguyên. Thực hiện các chương trình sau:
Tính tổng các phần tử trong mảng
Input
A = 1 4 5 6 7

Output
S = 23


Xác định bài toán:
Input: mảng a
Output: tổng các phần tử trong mảng.
Thuật toán:
B1: Nhập n, a1,a2, …, an
B2: i( 1, s ( 0
B3: s ( s + ai
B4: i (i + 1
B5: nếu i > n, đưa ra S và kết thúc.
B6: quay lại bước 3.
Chương trình:
program tinhtong;
uses crt;
var n,i:byte;
a:array[1..15] of integer;
s:integer;
begin
clrscr;
write(`nhap so luong phan tu: `); readln(n);
for i:=1 to n do
begin
write(`nhap phan tu a[`,i,`] = `); readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln(`tong cac phan tu trong mang la: `,s);
readln
end.

Tính tổng các phần tử âm của mảng
Input
A = 1 -4 5 6 -7

Output
S = -11


Xác định bài toán:
Input: mảng a
Output: tổng các phần tử âm trong mảng.
Thuật toán:
B1Nhập n, a1,a2, …, an
B2: i( 1, s ( 0
B3: nếu ai < 0 thì s ( s + ai
B4: i (i + 1
B5: nếu i > n, đưa ra S và kết thúc.
B6: quay lại bước 3.
Chương trình:
program tongam;
uses crt;
var n,i:byte;
a:array[1..15] of integer;
s:integer;
begin
clrscr;
write(`nhap so luong phan tu: `); readln(n);
for i:=1 to n do
begin
write(`nhap phan tu a[`,i,`] = `); readln(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i] < 0 then s:=s+a[i];
writeln(`tong cac phan tu trong mang la: `,s);
readln
end.


Tính tổng và trung bình cộng của các phần tử chẵn của mảng.
Input
A = 1 -4 5 6 -7

Output
S = 2, TB = 1


Xác định bài toán:
Input: mảng a
Output: tổng các phần tử chẵn và TB cộng của các phần tử chẵn trong mảng.
Thuật toán:
B1Nhập n, a1,a2, …, an
B2: i( 1, s ( 0, d ( 0
B3: nếu ai chia hết cho 2 thì s ( s + ai , d( d+1
B4: i (i + 1
B5: nếu i > n, tính TB ( s/d, đưa ra S và TB rồi kết thúc.
B6: quay lại bước 3.
Chương trình:
program tongchan;
uses crt;
var n,i:byte;
a:array[1..15] of integer;
s:integer;
TB: real;
begin
clrscr;
write(`nhap so luong phan tu: `); readln(n);
for i:=1 to n do
begin
write(`nhap phan tu a[`,i,`] = `); readln(a[i]);
end;
s:=0; d:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then begin s:=s+a[i];
d:=d+1; end;
TB:= s/d;
writeln(`tong cac phan tu trong mang la: `,s);
writeln(‘trung binh cac phan tu chan la: ‘,TB);
readln
end.

Tìm phần tử có giá trị lớp nhất của mảng.
Input
A = 1 -4 5 6 -7

Output
Max = 6, vt = 4


Xác định bài toán:
Input: mảng a
Output: phần tử có giá trị lớn nhất trong mảng