mn giúp em bài này vs ạ. e cần gấp ạ. em cảm ơn rất nhiều Viết chương trình PASCAL cho: Input: N, a1, a2, ..., aN Output: a, Hãy đưa ra chỉ số đầu tiên có giá trị bằng x b, Đếm số lượng các phần tử có giá trị bằng x c, Hãy đưa ra các giá trị lớn hơn x d, Tính giá trị trung bình cộng của các số nhỏ hơn x
2 câu trả lời
uses crt;
var a: array[1..1000000] of integer;
i,n,x,csd,d,tbc: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
write ('nhap x: '); readln (x);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (n);
if a[i]=x then csd:=i; {chỉ số đầu bằng x}
if a[i]=x then d:=d+1; {đếm các phần tử bằng x}
if a[i]<x then t:=t+a[i]; {tính tổng để tính Trung bình cộng}
end;
tbc:=t/n;
writeln ('a) chi so dau tien co gia tri bang x la: a[',csd,']');
writeln ('b) co ',d,' phan tu co gia tri bang x');
write ('c) cac gia tri lon hon x la: ');
for i:=1 to n do id a[i]>x then write (a[i],' ');
writeln;
writeln ('d) gia tri trung binh cong cua cac so nho hon x la: ',tbc);
readln;
end.
uses crt;
var i,n,x,d,d2:byte;
a:array[0..200] of integer;
tbc:real;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
write('Nhap x:'); readln(x);
d:=0; tbc:=0; d2:=0;
for i:=1 to n do
begin
write('Nhap a[',i,']:');
readln(a[i]);
if a[i]=x then inc(d);
if a[i]<x then
begin
inc(d2);
tbc:=tbc+a[i];
end;
end;
writeln('a) ',a[x]);
writeln('b) ',d);
write('c) ');
for i:=1 to n do
if a[i]>x then write(a[i],' ');
write('d) ',tbc/d2:0:3);
readln
END.
Chúc bạn học tốt, xin ctlhn!
