Mọi người giúp mik vs nhé, mik cần gấp, sắp thi rồi. Mik cảm ơn trc ạ: C1: nhập vào 1 mảng gồm n phần tử, tính giá trị trung bình của dãy số đó. C2: Viết chương trình nhập dãy n số và in ra tổng các số chẵn, tổng các số lẻ trong dãy cần nhập. C3: viết chương trình nhập dãy n số và cho biết số nhỏ nhất trong các số vừa nhập là số thư mấy?
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Bài 1:
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:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
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:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
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
if a[i] mod 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
readln;
end.
program sapxep;
var
i, j, n, x: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu trong day: ');
readln(n);
for i := 1 to n do
begin
write('a[', i, ']= ');
readln(a[i]);
end;
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] > a[j] then
begin
x := a[i];
a[i] := a[j];
a[j] := x;
end;
write('Nhap so x: ');
readln(x);
for i := 1 to n do
begin
if x <= a[i] then
begin
for j := n downto i + 1 do
a[j] := a[j-1];
a[i] := x;
break;
end;
end;
writeln('Day so vua sap xep va them phan tu x:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
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.
Câu 1:
uses crt;
var a:array[1..200]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
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt .
Câu 1:
uses crt;
var n,i,t: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;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.