Viết chương trình nhập vào 1 mảng số nguyên. In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó.
Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết chương trình tìm giá trị lớn nhất( in ra vị trí chứa phần tử có giá trị lớn nhất )của dãy số gồm n số nguyên được nhập từ bàn phím CẦN GẤP CÂU TRẢ LỜI Ạ:((
Bài 23
var a:array[1..1000] of integer;
i,n:integer;
s,tbc:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
tbc:=s/n;
writeln('Gia tri trung binh la ',tbc:10:2);
write('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i] > tbc then write(a[i]:8);
readln
end.
var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
for i:=1 to n do
begin
if max=a[i] then write(max,' o vi tri thu ',i);
break;
readln
end.
Viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
tb:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t/n:4:2);
tb:=t/n;
for i:=1 to n do
if a[i]<tb then write(a[i]:4);
readln;
end.
VIẾT CHƯƠNG TRÌNH NHÂP VÀO MẢNG N SỐ NGUYÊN DƯƠNG TÍNH GIÁ TRỊ TRUNG BÌNH CỦA MẢNG ĐÓ VÀ IN RA MÀN HÌNH NHỮNG GIÁ TRỊ LỚN HƠN GÍA TRỊ TRUNG BÌNH
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln('Trung binh cua day so la: ',tb:4:2);
writeln('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i]>tb then write(a[i]:4);
readln;
end.
Viết chương trình nhập vào một mảng số nguyên gồm n phần tử (n<=100) Tính và in ra màn hình trung bình cộng giá trị phần tử của mảng
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
tbc:real;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln
End.
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
Câu 1:
uses crt;
var a:array[1..5]of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 2:
uses crt;
var a:array[1..6]of integer;
min,i:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 6 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Viết phương trình tạo mảng A gồm n phần tử (n<= 100) Hãy
a. Tính và in ra màn hình giá trị trung bình của mảng và các phần tử lớn hơn giá trị trung bình của mảng đó
b. Tính và in ra màn hình tổng các phần tử chẵn hoặc lẻ trong mảng
c. In ra màn hình giá trị nhỏ nhất và vị trí của giá trị đó trong mảng
d. Đếm số phần tử chia hết cho 5 có trong mảng
Giúp mình với ạ, mình cảm ơn nhiều
tham khảo'
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('So luong so chan la: ',dem);
readln;
end.
Var a:array[1..100] of integer;
i,n,dem,vt,s sc,sl,min:integer;
tbc:real;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do s:=s+a[i];
tbc:=s/n;
Writeln('Gia tri trung binh cua mang la ',tbc:10:2);
Write('Cac phan tu lon hon gia tri trung binh la ');
For i:=1 to n do
If a[i]>tbc then write(a[i],' ');
For i:=1 to n do
Begin
If a[i] mod 2 = 0 then sc:=sc+a[i]
Else sl:=sl+a[i];
End;
Writeln('Tong cac phan tu chan la ',sc);
Writeln('Tong cac phan tu le la ',sl);
min:=a[1];
For i:=2 to n do
Begin
If a[i] < min then min:=a[i];
vt:=i;
End;
Writeln('Phan tu nho nhat la ',min,' tai vi tri ',vt);
For i:=1 to n do
If a[i] mod 5 = 0 then dem:=dem+1;
Write('So cac phan tu chia het cho 5 la ',dem);
Readln;
End.
Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, in mảng đã nhập ra màn hình, tính trung bình cộng của mảng đó.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
viết chương trình nhập vào 1 mảng n số nguyên in ra màn hình giá trị đảo ngược của mảng đó
var a: array[1..100] of integer;
i,n:integer;
begin
writeln('nhap n: '); readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]=1 then write(1)
else
write('1','/',a[i],' ');
writeln;
end;
readln
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
Viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng các phần tử mảng
var a:array[1..1000] of integer;
n,i: integer;
tb: real;
begin
write('Nhap N = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
for i:=1 to n do
if a[i] > tb then writeln(a[i]);
readln
end.