Sử dụng biến mảng viết chương trình nhập vào một dãy số, tính giá trị trung bình của dãy số đó
Những câu hỏi liên quan
Viết chương trình pascal về chủ đề bất kì có sử dụng biến mảng +Nhập độ dài của dãy +Nhập giá trị các phần tử của dãy +Tính giá trị trung bình của dãy +Tự in ra giá trị trung bình của dãy
uses crt;
var a:array[1..100]of integer;
t,i,n:integer;
begin
clrscr;
write('Nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri trung binh cua day la: ',t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
sử dụng biến mảng Viết chương trình nhập vào một dãy số gồm n số nguyên từ bàn phím in ra màn hình giá trị lớn nhất của dãy số đó
uses crt;
var a:array[1..100]of integer;
i,n,max: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];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)
Sử dụng biến mảng để viết chương trình nhập vào một dãy sô gồm N số nguyên tử bàn phím in ra màn hình giá trị lớn nhất của dãy số đó.
uses crt;
var a:array[1..100]of integer;
i,n,max: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];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình Pascal sử dụng biến mảng để tính giá trị trung bình của n số nguyên nhập từ bàn phím.chiều dài của dãy cũng được nhập từ bàn phím.
viết chương trình tính trung bình cộng của mộth dãy số .độ dài của dãy được nhập từ bàn phím (sử dụng biến mảng)
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
t: real;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
t:=t/n;
write('Trung binh cong cua day so la: ',t:5:2);
readln
end.
Đúng 0
Bình luận (0)
viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím và in ra dãy số nguyên đó
20p nữa mình cần rồi. Mình cảm ơn ạ!
uses crt;
var n,i,dem: integer;
tb: real;
A:array[1..1000] of integer;
writeln('Nhap do dai day: '); read(n);
writeln('Nhap cac phan tu cua day: ');
for i:=1 to n do
begin
writeln('a[',i,']='); read(a[i]);
end;
tb:=0;
for i :=1 to n do
begin tb:=tb+a[i]; dem:=dem+1; end;
tb:=tb/dem;
writeln('Gia tri Tb la: ',tb);
readln
@Lê Minh Vy:
-Sau dòng lệnh thứ 4 là lệnh Begin: dùng để chia giữa phần khai báo và phần thân và cuối chương trình thiếu lệnh end. để kết thúc chương trình.
-Lệnh nhập là readln không phải read: + dòng thứ 5 của bạn phải là readln(n); + dòng thứ 9 là readln(a[i]);
- Dòng 11,12,13 có thể gộp lên ở phần trên để đỡ chạy vòng for, rườm rà nhé :))
- Đề bài :viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím "và in ra dãy số nguyên đó" nên cuối bài, trước readln end. cần thêm lệnh
for i:=1 to n do write('day so nguyen la' a[i],' '); hoặc có thể bỏ ở vòng for ở trên gộp lại cũng được.
Viết chương trình pascal sử dụng biến mảng để nhập vào một dãy số và in ra tổng của dãy số đó
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Đúng 2
Bình luận (0)
10 tháng 5 2022 lúc 16:01
Sử dụng biến mảng viết chương trình nhập dãy số gồm 500 số nguyên bất kỳ từ bàn phím sau đó tính tổng các số chẵn trong dãy số đó sao cho giá trị của tổng là số nhỏ nhất lớn hơn 100 in ra giá trị của tổng
viết chương trình sử dụng biến mảng để nhập một dãy gồm N số nguyên từ bàn phím.In ra màn hình các số nguyên đó. Tính tổng và trung bình cộng của N số đó.
Giúp mình với ạ
program mang;
uses crt;
var
N, i: integer;
a: array[1..100] of integer;
sum, average: double;
begin
clrscr;
write('Nhap so phan tu mang: ');
readln(N);
sum := 0;
for i:= 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
sum := sum + a[i];
end;
writeln('Cac phan tu cua mang la:');
for i:= 1 to N do
write(a[i], ' ');
average := sum / N;
writeln('Tong cac phan tu cua mang la: ', sum:0:2);
writeln('Trung binh cong cua mang la: ', average:0:2);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số.
a, In ra màn hình các số vừa nhập ( độ dài của dãy cũng được nhập từ bàn phím)
b, Tính tổng các phần tử của dãy số
c, Tính giá trị nhỏ nhất của dãy số
d, Tìm giá trị lớn nhất của dãy số
Var a:array:[1..1000] of real;
i,n,max,min,s:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(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;
Write('Cac so vua nhap la ');
for i:=1 to n do write(a[i]:10:2):
Writeln;
Writeln('Tong la ',s:10:2);
Writeln('So nho nhat la ',min:10:2);
Write('So lon nhat la ',max:10:2);
Readln
End.
Đúng 1
Bình luận (0)
var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;
begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);
// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;
// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;
// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);
// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);
// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);
ReadLn;
end.
Đúng 0
Bình luận (0)