BÀI 12. KIỂU XÂU(CHUỖI) CÓ PHÂN BIỆT CHỮ HOA VÀ CHỮ THƯỜNGVÍ DỤ1

9./ S1:=’Hoc’; S2:=’Sinh’; S3:=’Gioi’;

a) uyenV

b) yen

c) enVan

d)V

Phần 2: (5đ) Học sinh đọc kỹ đề bài. Chỉ viết một chương trình

a) Nhập vào mảng một chiều B kiểu số thực gồm n phần tử (n <= 90).

b) Đếm các phần tử B[i] dương. Xuất kết quả tính được ra màn hình.

c) Tăng giá trị mỗi phần tử B[i] của mảng B lên 7 lần. Xuất kết quả của mảng sau khi tăng lên 7 lần

d) Tính tổng bình phương các phần tử B[i] âm.Xuất kết quả tính được ra màn hình.

Var B:array[1..90] of Real;

i,n,dem: integer;

S:Real;

Begin

Write('Nhap N='); Readln(n);

For i:=1 to n do

Begin

Write('B[',i,']=');

Readln(B[i]);

End;

if (B[i] > 0) then

dem := dem+1;

Writeln('Co',dem,'phan tu duong’);

For i:=1 to n do

B[i]:=B[i]*7;

Writeln('mang tang gap 7 la:');

Write(B[i],’ ’);

For i:=1 to n do

If (B[i] < 0) Then

S:=S+B[i]*B[i];

Writeln(’tong bp cac phan tu am= ’ , S);

Readln;

End.