Viết chương trình nhập vào cân nặng của N hs trong một lớp N được nhập từ bàn phím . Tính cân nangwh trung bình của lớp , xuất kq ra màn hình. em cảm ơn ạ
Bài 11: Kiểu mảng
uses crt;
var a:array[1..100]of real;
n,i:integer;
kq:real;
begin
clrscr;
write('Nhap so ban hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap can nang cua ban thu ',i,'='); readln(a[i]);
end;
kq:=0;
for i:=1 to n do
kq:=kq+a[i];
writeln('Can nang trung binh cua lop la: ',kq/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Nhập vào dãy số nguyên gồm n phần tử,đếm xem trong dãy có bao nhiêu số chẵn???
uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So phan tu chan la: ',dem);
readln;
end.
Đúng 0
Bình luận (0)
nhập dãy n tìm min và xuất ra giá trị đầu tiên
uses crt;
var a:array[1..100]of integer;
n,i,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
writeln('Gia tri dau tien la: ',a[1]);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
n,i,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
writeln('Gia tri dau tien la: ',a[1]);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình:
Nhập mãng G gồm 5 phần tử có kiểu dữ liệu số nguyên Tìm vị trí phần tử lẻ cuối cùng trong mãng
Tim vị trí phần tử chẵn cuối cùng trong mãng
Xem chi tiết
uses crt;
var g:array[1..5]of integer;
i,vtc,vtl:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('G[',i,']='); readln(g[i]);
end;
vtc:=0;
vtl:=0;
for i:=1 to 5 do
begin
if g[i] mod 2=0 then
begin
if vtc<i then vtc:=i;
end
else begin
if vtl<i then vtl:=i;
end;
end;
writeln('Vi tri phan tu le cuoi cung la: ',vtl);
writeln('Vi tri phan tu chan cuoi cung la: ',vtc);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình
Nhập mảng một chiều các sso nguyên
Xem chi tiết
viết chương trình nhập vào một dãy số hiển thị số âm, dương
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
writeln;
writeln('Cac so duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng 1 chiều các số nguyên không quá 250 phần tử.
a) tìm số dương đầu tiên và chỉ số của nó trong mảng
b) tìm số âm đầu tiên và chỉ số của nó trong mảng
c) tìm số dương cuối cùng và chỉ số của nó trong mảng
d) tìm số âm cuối cùng và chỉ số của nó trong mảng
Ai giải giúp với ạ
Xem chi tiết
uses crt;
var a,b,c:array[1..250]of integer; i,n,dem,dem1,sd,vtd,sa,vta,sdcc,sacc,vtd1,vtc1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
if a[i]<0 then
begin
inc(dem1);
c[dem1]:=a[i];
end;
end;
writeln('So duong dau tien trong day la: ',b[1]);
sd:=b[1];
vtd:=n;
for i:=n downto 1 do
if sd=a[i] then
begin
if vtd>i then vtd:=i;
end;
writeln('Chi so cua no la: ',vtd);
writeln('So am dau tien trong day la: ',c[1]);
sa:=c[1];
vta:=n;
for i:=n downto 1 do
if sa=a[i] then
begin
if vta>i then vta:=i;
end;
writeln('Chi so cua no la: ',vta);
writeln('So duong cuoi cung trong day la: ',b[dem]); sdcc:=b[dem];
vtd1:=1;
for i:=1 to n do
if sdcc=a[i] then
begin
if vtd1<i then vtd1:=i;
end;
writeln('Chi so cua no la: ',vtd1);
writeln('So am cuoi cung trong day la: ',c[dem]); sacc:=c[dem];
vtc1:=1;
for i:=1 to n do
if sacc=a[i] then
begin
if vtc1<i then vtc1:=i;
end;
writeln('Chi so cua no la: ',vtc1);
readln;
end.
Đúng 1
Bình luận (0)
Cho mảng A gồm N số nguyên ( 1
Xem chi tiết
hãy lập chương trình nhập từ bàn phím một dãy số nguyên n phần tử (với n<=100) sau đó tính và hiển thị ra màn hình phần tử có giá trị nhỏ nhất, lớn nhất trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Đúng 1
Bình luận (0)
mn giúp em với ạ em cần gấp
lập trình thực hiện các công việc sau :
- nhập từ bàn phím dãy N số nguyên
- đếm các phần tử chẵn trong dãy số
- tìm trong dãy số một phần tử có giá trị bằng k ( k được nhập từ bàn phím)
Xem chi tiết
uses crt;
var n,i,k,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So phan tu chan trong day so la: ',dem);
write('Nhap so k='); readln(k);
kt:=0;
for i:=1 to n do
if a[i]=k then kt:=i;
if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)
else writeln('Trong day co phan tu bang ',k);
readln;
end.
Đúng 0
Bình luận (0)