Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of LongInt; Var a:KM; i,N, k:Integer; Begin Write('Nhap N= ');Readln (N); Write('Nhap k= '); Readln (k); For i:-1 to n do Begin Write(Nhap a[',I,']= '); Readln(a[i]); If trunc (sqrt (a(i]))=k then Write (i:6); End; Chương trình sẽ đưa ra kết quả gì? b. Với: N=6; k=5 A= 45 56 73 64 55 98 Chương trình sẽ đưa ra kết quả gì? c. Sửa điều kiện lệnh If thành kiểm tra xem a[i] có là số chính phương hay không? (Số chính phương là: x2 = ai. VD 9 = 32; 16 = 42; 81 = 92) Readln; End.
Những câu hỏi liên quan
Khai báo mảng 1 chiều lưu trữ 300 phần tử số nguyên có giá trị trong khoảng từ -255 đến 255 bằng cách trực tiếp và gián tiếp
Trực tiếp: Var a:array[1..300]of byte;
Gián tiếp:
Type: mang=array[1..300]of byte;
Var a:mang;
Đúng 0
Bình luận (0)
CHO MÌNH HỎI CÂU TIN NÀY VS
Viết chương trình khai báo mảng 1 chiều tối đa 10 phần tử số nguyên hãy:
a, Thông báo ra màn hình các phần tử>=k(k nhập từ bàn phím)
b,tính tổng các phần tử có giá trị >=k
c, tính tổng tbc các phần tử >=k
hãy viết câu lệnh,khai báo theo yêu cầu sau:
a.khai báo mảng a có tối đa 50 phần tử thuộc kiểu dữ liệu số thực
b.phần tử thứ 5 của mảng a được gán giá trị là 8
c.nhập giá trị cho phần tử thứ 2 trong mảng a
d. nếu số a ko chia hết cho 2 thì số đó là số lẻ
a) var a:array[1..50]of real;
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Lập trình pascal nhập vào mảng a gồm n phần tử (n nhập từ bàn phím)
1. Khai báo và nhập mảng
2. Tính tổng các phần tử của mảng
3. Đếm và in ra các phần tử có giá trị bằng 5
4. Tính trung bình cộng cách phần tử là số lẻ
5. Tìm những phần tử mang giá trị 0 thay bằng giá trị 10 rồi in lại mảng
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
tbc: real;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
d:=0;
for i:=1 to n do if a[i]=5 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri bang 5');
tbc:=0;
for i:=1 to n do if a[i] mod 2=1 then tbc:=tbc+a[i];
tbc:=tbc/n;
writeln('Trung binh cong cac phan tu le la: ',tbc:6:2);
write('Mang sau khi thay la: ');
for i:=1 to n do if a[i]=0 then a[i]:=10;
for i:=1 to n do write(a[i],' ');
readln
end.
Đúng 0
Bình luận (0)
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực b) Phần tử thứ năm của mảng A được gắn giá trị là 8 c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhậpCâu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiênCâu 3: Cho mảng A chứa các giá trị sauA1713201015I37567a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêub) Cho các câu lệnh sau:A[2]: A[3]...
Đọc tiếp
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
| A | 17 | 13 | 20 | 10 | 15 |
| I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
5 tháng 5 2022 lúc 19:32
Câu 1: Khai báo biến mảng có tên bất kỳ gồm 10 phần tử. Mỗi phần tử lưu tên mỗi học sinh.
Câu 2: Giả sử có mảng có tên là A gồm 10 phần tử, viết lệnh để gán giá trị phần tử thứ nhất có giá trị là 4, phần tử thứ 10 có giá trị là 16.
Giúp mk với !!!
Hãy khai báo một biến mảng A gồm 100 phần tử là số nguyên?
Viết chương trình thực hiện các yêu cầu sau :
a,Khai báo biến mảng DTB có số phần tử bằng sĩ số lớp em , các phần tử có kiểu dữ liệu số thực
b,Nhập dữ liệu cho mảng DTB từ bàn phím
c,Tính tổng giá trị các phần tử trong mảng
d,Thông báo kết quả ra màn hình
Giúp mình với , làm bằng pascal nhé!
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
Đúng 0
Bình luận (0)
Để in giá trị của phần tử thứ 6 trong biến mảng, ta sử dụng câu lệnh nào? (1 Point)print(A[i+1])print(A[6])print(A[5])print(A[i])2.Cho khai báo mảng như sau: a [0]*nĐể nhập giá trị cho phần tử thứ 20 của mảng a từ bàn phím, ta viết: (1 Point)aeval(input(a[21] ))aeval(input(a[18] ))aeval(input(a[20] ))aeval(input(a[19] ))3.Em hãy chọn phát biểu đúng: (1 Point)Mảng là một dãy vô hạn các phần tử.Trong Python, chỉ số của một mảng mặc định từ số 0 trở điDữ liệu kiểu mảng là tập hợp các...
Đọc tiếp
Để in giá trị của phần tử thứ 6 trong biến mảng, ta sử dụng câu lệnh nào? (1 Point)print(A[i+1])print(A[6])print(A[5])print(A[i])2.Cho khai báo mảng như sau:
a = [0]*n
Để nhập giá trị cho phần tử thứ 20 của mảng a từ bàn phím, ta viết: (1 Point)a=eval(input('a[21]= '))a=eval(input('a[18]= '))a=eval(input('a[20]= '))a=eval(input('a[19]= '))3.Em hãy chọn phát biểu đúng: (1 Point)Mảng là một dãy vô hạn các phần tử.Trong Python, chỉ số của một mảng mặc định từ số 0 trở điDữ liệu kiểu mảng là tập hợp các phần tử không có thứ tựTrong Python, chỉ số của một mảng mặc định từ số 1 trở đi4.Để nhập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên, ta dùng lệnh nào sau đây? (1 Point)for i in range(1,10): A[i]=eval(input('A['+str(i)+']= '))for i in range(10): A[i]=eval(input('A['+str(i)+']= '))for i in range(10): A[1]=eval(input('A['+str(i)+']= '))for i range(10): A[i]=eval(input('A['+str(i)+']= '))5.Để nhập giá trị cho các phần tử của mảng, ta sử dụng câu lệnh nào sau đây? (1 Point)if…for…print…elif…6.Cú pháp khai báo nào sau đây đúng nhất? (1 Point)tên biến mảng = [giá trị khởi tạo]*số phần tửtên biến mảng := [giá trị khởi tạo]*số phần tửtên biến mảng = [số phần tử]*giá trị khởi tạotên biến mảng := [số phần tử]*giá trị khởi tạo7.Chọn câu phát biểu đúng? (1 Point)Việc truy cập tới phần tử bất kì của mảng được thực hiện thông qua biến đếm của của câu lệnh lặp for.Kiểu dữ liệu của mảng là intKiểu dữ liệu của mảng phải là floatViệc truy cập tới phần tử bất kì của mảng được thực hiện thông qua chỉ số tương ứng của phần tử đó trong mảng.8.Số phần tử trong khai báo dưới đây là bao nhiêu?
hocsinh = [70]*80 (1 Point)8070101509.Phát biểu nào dưới đây về chỉ số của mảng là phù hợp nhất? (1 Point)Dùng để truy cập đến một phần tử bất kì trong mảngDùng để quản lí kích thước của mảngDùng trong vòng lặp với mảng để quản lí kích thước của mảngDùng trong vòng lặp của mảng10.Khai báo nào là đúng trong các khai báo sau đây:
(1 Point)tuoi : [2]-ntuoi = [3]+n;tuoi = [1]*ntuoi := [0]/n
a = [0]*n
Để nhập giá trị cho phần tử thứ 20 của mảng a từ bàn phím, ta viết: (1 Point)a=eval(input('a[21]= '))a=eval(input('a[18]= '))a=eval(input('a[20]= '))a=eval(input('a[19]= '))3.Em hãy chọn phát biểu đúng: (1 Point)Mảng là một dãy vô hạn các phần tử.Trong Python, chỉ số của một mảng mặc định từ số 0 trở điDữ liệu kiểu mảng là tập hợp các phần tử không có thứ tựTrong Python, chỉ số của một mảng mặc định từ số 1 trở đi4.Để nhập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên, ta dùng lệnh nào sau đây? (1 Point)for i in range(1,10): A[i]=eval(input('A['+str(i)+']= '))for i in range(10): A[i]=eval(input('A['+str(i)+']= '))for i in range(10): A[1]=eval(input('A['+str(i)+']= '))for i range(10): A[i]=eval(input('A['+str(i)+']= '))5.Để nhập giá trị cho các phần tử của mảng, ta sử dụng câu lệnh nào sau đây? (1 Point)if…for…print…elif…6.Cú pháp khai báo nào sau đây đúng nhất? (1 Point)tên biến mảng = [giá trị khởi tạo]*số phần tửtên biến mảng := [giá trị khởi tạo]*số phần tửtên biến mảng = [số phần tử]*giá trị khởi tạotên biến mảng := [số phần tử]*giá trị khởi tạo7.Chọn câu phát biểu đúng? (1 Point)Việc truy cập tới phần tử bất kì của mảng được thực hiện thông qua biến đếm của của câu lệnh lặp for.Kiểu dữ liệu của mảng là intKiểu dữ liệu của mảng phải là floatViệc truy cập tới phần tử bất kì của mảng được thực hiện thông qua chỉ số tương ứng của phần tử đó trong mảng.8.Số phần tử trong khai báo dưới đây là bao nhiêu?
hocsinh = [70]*80 (1 Point)8070101509.Phát biểu nào dưới đây về chỉ số của mảng là phù hợp nhất? (1 Point)Dùng để truy cập đến một phần tử bất kì trong mảngDùng để quản lí kích thước của mảngDùng trong vòng lặp với mảng để quản lí kích thước của mảngDùng trong vòng lặp của mảng10.Khai báo nào là đúng trong các khai báo sau đây:
(1 Point)tuoi : [2]-ntuoi = [3]+n;tuoi = [1]*ntuoi := [0]/n