Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program HOC24;
var a: array[1..100] of integer;
i,n,d: integer;
t: longint;
begin
write('Nhap so phan tu n='); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]>0 then
begin
d:=d+1;
t:=t+a[i];
end;
end;
write('Trung binh cong cac so duong trong mang la :',t/d:1:2);
readln
end.
Câu 8. Câu lệnh while – do có cú pháp nào dưới đây?
A. while <điều kiện> do <câu lệnh>;
B. write <điều kiện> do <câu lệnh>;
C. while <điều kiện> to <câu lệnh>;
D. while <điều kiện> begin <câu lệnh>;end;
Câu 9. Cho biết kết quả khi thực hiện đoạn câu lệnh:
S:=0;
For i:=1 to 12 do if i mod 2 <>0 then S:=S+i;
Kết quả:
A. S=38
B. S=36
C. S=45
D. S=32
Câu 10. Cho biết kết quả khi thực hiện đoạn câu lệnh:
c:=a; a:=a-b; b:=a*c; S:=a+b;
Khi a=6 ; b=2. Kết quả:
A. S= 8
B. S= 9
C. S= 12
D. S=2
bạn có nhập sai ct ko chứ làm sao ct chạy nếu như chưa nhập a[m] với a[j] là gì
giả sử nếu như a[m] và a[j] đã được nhập hết thì câu trả lời đúng là D
uses crt;
var x,y :int64;
begin
clrscr;
write('nhap gia tri cua x: ');
readln(x);
write('nhap gia tri cua y: ');
readln(y);
if (x>= y ) then write('S = ', x+y)
else write ('S = ', x-y);
readln;
end.
program cau_a;
uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------chuong-trinh-con-nhap--------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------chuong-trinh-con-tim-min--------------}
function min(var c:mang):integer;
var j,m,nn:integer;
begin
nn:=c[1];
for j:=1 to m do
if nn<c[j] then nn:=c[j];
write('so nho nhat trong mang A la: ',nn);
min:=nn;
end;
{-----------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(a);
min(a);
readln;
end.
câu b:
program cau_b;
uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------chuong-trinh-con-nhap--------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------chuong-trinh-con-tinh-tong-cac-phan-tu-la-so-chan--------}
function tong(var c:mang):integer;
begin
s:=0;
for i:=1 to n do
if c[i] mod 2=0 then s:=s+c[i];
tong:=s;
end;
{-----------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(a);
s:=tong(a);
write(s);
readln;
end.
Câu 1: C
Câu 2: A
Câu 19: D
Câu 20: B
Câu 18: C