Yahoo Hỏi & Đáp sẽ ngừng hoạt động vào ngày 4 tháng 5 năm 2021 (Giờ Miền Đông nước Mỹ) và từ nay, trang web Yahoo Hỏi & Đáp sẽ chỉ ở chế độ đọc. Các thuộc tính hoặc dịch vụ khác của Yahoo hay tài khoản Yahoo của bạn sẽ không có gì thay đổi. Bạn có thể tìm thêm thông tin về việc Yahoo Hỏi & Đáp ngừng hoạt động cũng như cách tải về dữ liệu của bạn trên trang trợ giúp này.
Ai giúp em bài tập lập trình kiểu mảng 1 chiều này với?
viết ct nhập vào mảng 1 chiều gồm n phần tử (n<=100)
a/tính tổng các phần tử vừa nhập trong mảng. xuất kq ra màn hình
b/tìm giá trị lớn nhất của phần tử trong mảng
c/ tính trung bình cộng các phần tử lẻ trong mảng
Em làm được câu a rồi, pro nào giúp e câu b với, chỉ chỉnh sửa vài câu lênh dựa theo cau a thôi ạ
program a;
uses crt;
var i,n,s:integer;
A:array[1..100]of byte;
begin
clrscr;
write('nhap n =');
readln(n);
for i:=1 to n do
begin
write('A[' ,i, ' ]=');
readln(A[i]);
end;
S:=0;
For i:=1 to n do S:=S+ A[i];
For i:= 1 to n do write (A[i]:6);
writeln;
writeln('tong S= ');
readln;
End.
Ai giúp em câu b c với ạ, cảm ơn các anh chị cô bác chú thím lắm ạ, bắt đầu từ begin thôi cũng được ạ
3 Câu trả lời
- 8 năm trướcCâu trả l��i yêu thích
Hey? Ý c là tính trug bình cộng mà:
Begin
s:=0;
for i:=1 to n do
if a[i] mod 2=1 do
s:=(s a[i])/2;
writeln ('TB Cong cac so le la ',s);
readln
end.
Ý b:
(phần var khai báo thêm biến j:integer nha)
j:=1;
for i:=2 to n do
if a[i]>a[j] then j:=i
writeln('bien co gtri lon nhat la ',j);
readln
end.
(ý b tham khảo vd sgk tin 11 trang 64)
- 8 năm trước
Các bác nhà m quá. Tham khảo bà i tui nè, vừa ngắn vừa dá» hiá»u, 3 trong 1 nhé:
VAR a: ARRAY[1..100] OF WORD;
i,max,n,tong: WORD;
tbc: LONGINT;
BEGIN
tong:=0;max:=0;tbc:=0;
write('nhap so phan tu: ');
readln(n);
FOR i:=1 TO n DO
BEGIN
write('a[',i,']= ');
readln(a[i]);
tong:=tong+a[i];
IF a[i]>max THEN max:=a[i];
IF a[i] MOD 2 = 1 THEN tbc:=tbc+a[i];
END;
writeln('Tong la: ',tong); {Cau a}
writeln('Lon nhat la: ',max); {Cau b}
writeln('TBC cua cac so le la: ',tbc/n:5:1); {Cau c}
readln;
END.
- Ẩn danh8 năm trước
b) ...
For i:=1 to n do
if a[i] > a[j] then a[i]:=a[j];
wrteln(a[i]:6);
c) S:=0
For i:=1 to n do
if a[i] mov 2 <> 0 do
S:=S+a[i];
writeln('Tong cac phan tu le la:' S:6);
Readln;
EnD.
