Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím, in ra màn hình giá trị lớn nhất, giá trị nhỏ nhất và giá trị trung bình của dãy số, tính và in ra màn hình giá trị nhỏ nhất của dãy số nhỏ hơn giá trị TB bao nhiêu, giá trị lớn nhất của dãy số lớn hơn giá trị TB bao nhiêu là bao nhiêu?
Bài 9. Làm việc với dãy số
program TimMinMaxTrungBinh;
var
N, i, max, min, sum: integer;
a: array[1..50] of integer;
TB, minTB, maxTB: real;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
sum := sum + a[i];
end;
max := a[1];
min := a[1];
for i := 2 to N do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
TB := sum / N;
minTB := TB;
maxTB := TB;
for i := 1 to N do
begin
if (a[i] < TB) and (a[i] < minTB) then
minTB := a[i];
if (a[i] > TB) and (a[i] > maxTB) then
maxTB := a[i];
end;
writeln('Gia tri lon nhat la: ', max);
writeln('Gia tri nho nhat la: ', min);
writeln('Gia tri trung binh la: ', TB:2:2);
if minTB = TB then
writeln('Khong co gia tri nao nho hon TB')
else
writeln('Gia tri nho nhat < TB la: ', minTB);
if maxTB = TB then
writeln('Khong co gia tri nao lon hon TB')
else
writeln('Gia tri lon nhat > TB la: ', maxTB);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình A: nhập vào mảng a B: tính tổng các giá trị của mảng a C: tìm giá trị lớn nhất trong mảng
Var array:[1..1000] of integer;
i,n,max:integer;
s:longint;
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;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Writeln('Tong la ',s);
write('So lon nhat la ',max);
Readln
End.
Đúng 1
Bình luận (0)
// Yêu cầu A: Nhập vào mảng a
let a = [1, 2, 3, 4, 5]; // Ví dụ: Mảng a gồm các số từ 1 đến 5
// Yêu cầu B: Tính tổng các giá trị của mảng a
let sum = 0; // Khởi tạo biến sum bằng 0
for (let i = 0; i < a.length; i++) { // Duyệt từng phần tử trong mảng a
sum += a[i]; // Cộng từng giá trị của phần tử vào biến sum
}
console.log("Tổng các giá trị trong mảng a là: " + sum); // In kết quả tổng ra màn hình console
// Yêu cầu C: Tìm giá trị lớn nhất trong mảng a
let max = a[0]; // Khởi tạo biến max bằng giá trị đầu tiên của mảng a
for (let i = 1; i < a.length; i++) { // Duyệt từ phần tử thứ nhất đến cuối cùng của mảng a
if (a[i] > max) { // Nếu giá trị của phần tử lớn hơn giá trị của biến max
max = a[i]; // Gán giá trị của phần tử cho biến max
}
}
console.log("Giá trị lớn nhất trong mảng a là: " + max); // In kết quả giá trị lớn nhất ra màn hình console
Đúng 0
Bình luận (0)
Viết chương trình cho phép nhập dãy n số nguyên, em hãy: a/ Cho biết trong dãy số vừa nhập có bao nhiêu số chẳn? b/ Tính trung bình cộng các phần tử chẳn? c/ In các phần tử trong dãy ra màn hình theo chiều dọc? Giúp với ạ
Program HOC24;
var d,i,n: integer;
t: real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
d:=d+1;
t:=t+a[i];
end;
t:=t/d;
writeln('Co ',d,' so chan trong mang');
writeln('Trung binh cong cac phan tu chan la: ',t:2:5);
write('Cac phan tu trong day theo chieu doc: ');
for i:=1 to n do writeln(a[i]);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập mảng A gồm N phần tử (tối đa 50 phần tử) a) Nhập các giá trị cho các phần tử của mảng. b) In phần tử là số chẵn có trong mảng và cho biết tổng của các số chẵn đó.
Program HOC24;
var a: array[1..50] of integer;
i,n: byte;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac phan tu chan trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan trong day la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Các thao tác với 1 biến mảng và lệnh thực hiện tương ứng
var
array_name: array[lower_bound..upper_bound] of data_type;
Đúng 0
Bình luận (1)
Viết chương trình, nhập mảng A gồm n phần tử (có tối đa 50 phần tử) a) nhập các giá trị cho các phần tử của mảng b) in phần tử là số chẵn có trong mảng và cho biết tổng của các số chẵn đó
Program HOC24;
var i,n: byte;
t: longint:
a: array[1..50] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end;
t:=0;
write('Cac phan tu chan co trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan do la: ',t);
readln
end.
Đúng 1
Bình luận (1)
cho mảng x gồm n phần tử được nhập từ bàn phím . hãy viết chương trình tính tích để thõa mãn điều kiện số đó là số chẵn
viết chương trình sử dụng biến mảng để nhập một dãy số gồm N số nguyên từ bàn phím và thực hiện: +tính tổng các số trong dãy đó. +in ra màn hình các số lớn hơn 50 trong dãy số đó. +tìm số nhỏ nhất trong dãy đó Cần gấp ạ
var a:array[1..1000] of integer;
i,n,min:integer;
s:longint;
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;
writeln('Tong la ',s);
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('Cac so chan la ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:8);
writeln;
write('so nho nhat la ',min);
readln
end.
Đúng 0
Bình luận (0)
Cách khai báo biến mảng sau đây đúng hay sai? Nếu sai giải thích tại sao?a) Var X: Array[10 , 13] of real;b) Var X: Array[3..4.8] of integer;c) Var X: Array(10..1) of integer;d) Var X: Array[-7..7] of integer;
Đọc tiếp
Cách khai báo biến mảng sau đây đúng hay sai? Nếu sai giải thích tại sao?
a) Var X: Array[10 , 13] of real;
b) Var X: Array[3..4.8] of integer;
c) Var X: Array(10..1) of integer;
d) Var X: Array[-7..7] of integer;
viết chương trình nhâp vào mảng các số nguyên A gồm tối đã 30 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
Var a:array[1..30] of integer;
i,max,d:integer;
Begin
For i:=1 to 30 do
Begin
Repeat
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
Until a[i]<=255;
End;
max:=a[1];
d:=1;
For i:=2 to 30 do
If a[i] > max then
Begin
max:=a[i];
d:=i;
End;
Write('Phan tu lon nhat la ',max,' tai vi tri ',i);
Readln
End.
Đúng 2
Bình luận (0)