Câu hỏi:
28/06/2023 115Sách mới 2k7: Bộ 20 đề minh họa Toán, Lí, Hóa, Văn, Sử, Địa…. form chuẩn 2025 của Bộ giáo dục (chỉ từ 49k/cuốn).
Quảng cáo
Trả lời:
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.
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 2:
Câu 4:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Câu 6:
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 19 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 18 có đáp án
263 câu Trắc nghiệm tổng hợp ôn thi tốt nghiệp THPT môn Tin học Chủ đề F. Giải quyết vấn đề với sự trợ giúp của máy tính có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 16 có đáp án
Trắc nghiệm Tin học 12 KNTT Bài 17: Các mức ưu tiên của bộ chọn
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 15 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 21 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 20 có đáp án
Hãy Đăng nhập hoặc Tạo tài khoản để gửi bình luận