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...

DT

Đỗ Trần Kiên

15 tháng 5 2023 - olm

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...

Đọc tiếp

#Tin học lớp 8

1

NA

Nguyễn An Ninh

VIP

15 tháng 5 2023

'''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)

HT

hạnh trần

4 tháng 5 2021

viết chương trình thực hiện yêu cầu sau khai báo biến mảng tên là B gồm tối đa 25 phần tử, các phần tử có kiểu là số nguyên,sau đó nhập dữ liệu từ bàn phím vào mảng ?

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

4 tháng 5 2021

uses crt;

var b:array[1..25]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('B[',i,']='); readln(b[i]);

end;

readln;

end.

Đúng(0)

TA

Thiên An

14 tháng 5 2023 - olm

Em hãy thực hiện các yêu cầu sau:

a. Khai báo một 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. (Lớp:30hs)

b. Viết lệnh nhập dữ liệu cho mảng DTB từ bàn phím.

C, Tìm giá trị lớn nhất trong mảng DTB

giúp mình ý b và c với nha

#Tin học lớp 8

1

NA

Nguyễn An Ninh

VIP

14 tháng 5 2023

b.

```python

for i in range(30):

DTB[i] = float(input(f"Nhập điểm của học sinh thứ

{i+1}: "))

c.

```python max_DTB = DTB[0] for i in range(1,

30): if DTB[i]> max_DTB: max_DTB = DTB[i] là:",

max_DTB)

print("Điểm cao nhất trong mảng DTB

Đúng(1)

TN

Toản Nguyễn

24 tháng 1 2021

Cho mảng 1 chiều mảng A gồm 20 phần tử các phần tử kiểu số nguyên dương.Viết chương trình thực hiện các yêu cầu sau a:Nhập dữ liệu cho mảng từ bàn phím b:Tính và hiển thị ra màn hình tổng các phần tử của mảng c:Cho biết mảng có bao nhiêu số chẵn

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

24 tháng 1 2021

uses crt;

var a:array[1..20]of integer;

i,n,t,dem:integer;

begin

clrscr;

for i:=1 to 20 do

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

t:=0;

for i:=1 to 20 do

t:=t+a[i];

writeln('Tong cac so trong mang la: ',t);

dem:=0;

for i:=1 to 20 do

if a[i] mod 2=0 then inc(dem);

writeln('Trong mang co ',dem,' so chan');

readln;

end.

Đúng(1)

H

haduybanggg

5 tháng 3 2022

viết chương trình khai báo và nhập dữ liệu tự bàn phím cho mảng a có tối đa 100 phần tử các, mỗi phần tử là số nguyên

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

5 tháng 3 2022

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

readln;

end.

Đúng(1)

VH

Vũ Hạ Linh

7 tháng 5 2021

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ị...

Đọc tiếp

#Tin học lớp 8

3

NL

Nguyễn Lê Phước Thịnh

7 tháng 5 2021

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)

NL

Nguyễn Lê Phước Thịnh

7 tháng 5 2021

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)

KT

Kim Thái

7 tháng 11 2021

Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

7 tháng 11 2021

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Đúng(0)

D

duyy

18 tháng 4 2023

Cho mảng A có N phần tử (N được nhập vào từ bàn phím, các phần tử của mảng là các số nguyên). Hãy viết chương trình Pascal thực hiện các yêu cầu sau: a. Nhập các phần tử cho mảng A? b. In lên màn hình các phần tử của mảng A? c. Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình?

#Tin học lớp 8

1

EP

Edward Paros

18 tháng 4 2023

program Tinh_Tong_Phan_Tu_Chan;

var
A: array of Integer;
N, i, sum: Integer;

begin
Write('Nhap N: ');
Readln(N);

SetLength(A, N);

// Nhập các phần tử cho mảng A
for i := 0 to N - 1 do
begin
Write('Nhap phan tu thu ', i + 1, ': ');
Readln(A[i]);
end;

// In lên màn hình các phần tử của mảng A
Write('Cac phan tu cua mang la: ');
for i := 0 to N - 1 do
begin
Write(A[i], ' ');
end;
Writeln;

// Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
sum := 0;
for i := 0 to N - 1 do
begin
if A[i] mod 2 = 0 then
sum := sum + A[i];
end;
Writeln('Tong cac phan tu chan cua mang la: ', sum);

Readln;
end.

Đúng(1)

UA

Utfg aghjn

27 tháng 3 2022

Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính...

Đọc tiếp

#Tin học lớp 8

0

Q

Quanh

25 tháng 4 2023

Viết chương trình khai báo mảng m có 50 phần tử kiểu Nguyên. Nhập các phần tử từ bàn phím và thực hiện tính tổng các phần tử đã nhập in ra kết quả tổng tính được và các phần tử đã nhập.

#Tin học lớp 11

1

NB

Ngô Bá Hùng

25 tháng 4 2023

program TinhTongPhanTuMang;
var
i, tong: integer;
m: array[1..50] of integer;

begin
for i := 1 to 50 do
begin
writeln('Nhap ptu thu ', i, ': ');
readln(m[i]);
end;
tong := 0;
for i := 1 to 50 do
begin
tong := tong + m[i];
end;
writeln('Tong cac ptu trong mang la: ', tong);
writeln('Cac ptu trong mang la:');
for i := 1 to 50 do
begin
writeln(m[i]);
end;
end.

Đúng(1)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP