Câu hỏi:
28/06/2023 88
Cho mảng T gồm 20 phần tử thuộc kiểu nguyên. Viết chương trình thực hiện các yêu cầu sau:
a. Viết thủ tục nhập giá trị cho mảng T từ bàn phím
b. Viết hàm tính giá trị trung bình của các phần từ vừa nhập
c. Viết hàm tính tổng các số chia hết cho X (X nhập từ bàn phím)
a. Viết thủ tục nhập giá trị cho mảng T từ bàn phím
b. Viết hàm tính giá trị trung bình của các phần từ vừa nhập
c. Viết hàm tính tổng các số chia hết cho X (X nhập từ bàn phím)
Câu hỏi trong đề:
Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa…. kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 110k).
Quảng cáo
Trả lời:
Giải bởi Vietjack
Lời giải:
Chương trình đề xuất
Program kiemtrahk2;
type mang=array[1..20] of integer;
var n,i,x:integer; T:mang;
a.
procedure nhap(var T:mang; n:integer);
begin
for i:= 1 to n do
begin
write('T[',i,']=');
readln(T[i]);
end;
end;
b.
function trungbinh(var a:mang; n:integer):real;
var tb:real; stb:integer;
begin
stb:=0;
for i:= 1 to n do
stb:=stb+T[i];
tb:=stb/n;
trungbinh:=tb;
end;
c.
function tongchia(var T:mang;var x:integer; n:integer):real;
var schia:real;
begin
schia:=0;
for i:= 1 to n do
if T[i] mod x=0 then schia:=schia+T[i];
tongchia:=schia;
end;
begin
nhap(T,20);
xuat(T,20); writeln;
write( ‘Trung binh la:’,trungbinh(T,20):6:4); writeln;
write( ‘nhap so nguyen x= ’); readln(x);
write( ‘ Tong cac so chia het cho’,x,’
la:’,tongchia(T,x,20):6:2);readln
end.
Nhà sách VIETJACK:
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 3:
Phần mềm nào sau đây không phải là hệ quản trị cơ sở dữ liệu quan hệ
Xem đáp án »
28/06/2023
40,429
Câu 5:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Xem đáp án »
27/06/2023
17,097
Câu 6:
Sau khi tạo liên kết giữa các bảng trong mô hình dữ liệu quan hệ, có thể thực hiện công việc nào dưới đây?
Xem đáp án »
28/06/2023
13,683
về câu hỏi!