dũng trần | Chat Online
21/03/2023 19:09:07

Hãy xác định các thành phần sau


Bài 1: Cho mảng một chiều gồm các phần tử sau:

A

10

55

17

20

17

29

23

43

18

17

 

 

1

2

3

4

5

6

7

8

9

10

Hãy xác định các thành phần sau:

-       Tên biến mảng:.................................................................................

-       Số lượng phần tử:......................................................................................

-       Kiểu dữ liệu của phần tử:......................................................................................

-       Viết khai báo cho mảng trên:...................................................................................

-       Cách tham chiếu đến phần tử thứ 6:.......................................................................................

-       Dựa vào khai báo hay cho biết chỉ số đầu:………….., chỉ số cuối:…………

Bài 2: Điền vào khoảng trống để hoàn thành chương trình sau:

v Khai báo mảng một chiều gồm 20 phần tử nguyên.

v Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng.

v Tính tổng các phần tử có giá trị chẵn và in tổng ra màn hình.

Program BT2;

Var …….: Array[………..] of  Integer;

        ………………:Integer;

Begin

        Write('Nhap so luong phan tu: ');

        Readln(…………..);

        For i:=1 to N do

        Begin

                write('Phan tu thu ',i,' = ');

                Readln(…………..);

        End;

        Tong:=…………..;

        For i:=1 to ………… do

                If ……………. then

                        Tong:=……………..;

        Write('Tong phan tu co gia tri chan la: ',………);

        Readln

End.

Bài 3: Sắp xếp chương trình sau thành chương trình hoàn chỉnh.

v Khai báo mảng một chiều gồm 30 phần tử nguyên.

v Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng.

v In ra màn hình các phần tử có giá trị âm, mỗi số in trên một dòng

Dãy lệnh cần sắp xếp

Chương trình hoàn chỉnh

 

For i:=1 to N do

 

 

If A[i] < 0 then

 

 

End;

 

 

Write('Nhap so luong phan tu: ');

 

 

Begin

 

 

Var A:Array[1..30] of Integer;

 

 

Write('Phan tu thu ',i,' = ');

 

 

Begin

 

 

Program BT3;

 

 

i, N:Integer;

 

 

Readln

 

 

End.

 

 

For i:=1 to N do

 

 

Readln(N);

 

 

Writeln(A[i]);

 

 

Writeln(‘Cac phan tu am: ’);

 

 

Readln(A[i]);

 

Bài 4: Viết chương trình thực hiện các yêu cầu sau:

v Khai báo mảng một chiều gồm 100 phần tử thuộc kiểu nguyên.

v Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng.

v Tính tổng các phần tử lớn hơn 10.

Ví dụ: Cho N=10 và mảng A gồm các phần tử sau:

A

10

5

9

20

17

2

6

3

8

17

 

 

1

2

3

4

5

6

7

8

9

10

Vậy tổng các phần tử lớn hơn 10 là: 54

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

....................................................................................................

         
Bài tập chưa có câu trả lời nào. Rất mong nhận được trả lời của bạn! | Chính sách thưởng | Quy chế giải bài tập
Không chấp nhận lời giải copy từ Trợ lý ảo / ChatGPT. Phát hiện 1 câu cũng sẽ bị xóa tài khoản và không được thưởng
Đăng ký tài khoản để nhận Giải thưởng khi trả lời bài tập.
Đăng ký tài khoản để có thể trả lời bài tập này!

Đăng ký qua Facebook hoặc Google:

Hoặc lựa chọn:
Đăng ký bằng email, điện thoại Đăng nhập bằng email, điện thoại
Lazi.vn