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.
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.
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 Ạ:((
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
Viết chương trình nhập vào mảng các số nguyên A gồm tối đa 30 phần tử, các phần tử có giá trị không quá 32767? Thông báo ra màn hình phần tử nhỏ nhất và vị trí của nó trong mảng?
Viết chương trình nhập vào một mảng gồm n phần tử tính tích và giá trị trung bình của mảng đó
Viết chương trình nhập vào mảng các số nguyên A gồm tối đa 30 phần tử, các phần tử có giá trị không quá 255? Thông báo ra màn hình phần tử lớn nhất và vị trí của nó trong mảng?
Viết chương trình nhập vào mảng số nguyên có tối đa 50 phân tử
Nhập giá trị cho các phần tử
In giá trị các phần tử lẻ ra màn hình
Cho biết tổng các phân tử lớn hơn 102 và nhỏ hơn 1.5*104
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
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 đó
Lập trình pascal nhập vào mảng a gồm n phần tử (n nhập từ bàn phím)
1. Khai báo và nhập mảng
2. Tính tổng các phần tử của mảng
3. Đếm và in ra các phần tử có giá trị bằng 5
4. Tính trung bình cộng cách phần tử là số lẻ
5. Tìm những phần tử mang giá trị 0 thay bằng giá trị 10 rồi in lại mảng