Bài 9. Làm việc với dãy số

Lê Thị Mỹ Diệu

viết c.trình sử dụng biến mảng và câu lệnh lặp

a) tính tổng của mảng có 10 phần tử, các phần tử đc nhập từ bàn phím

b) tính TB cộng của dãy số với độ dài dãy số được nhập từ bàn phím

c) tính tổng các số lẻ trong dãy số

Luân Đào
8 tháng 3 2019 lúc 19:14

a.

program giupban;

uses crt;

var i: integer;

A: array[1..15] of real;

tong, tbcong, tongsl: real;

begin

clrscr;

write('Cac phan tu cua day la: ');

for i:= 1 to 10 do

begin

write('a[',i,'] = '); readln(a[i]);

end;

tong:= 0

for i:= 1 to 10 do

tong := tong + a[i];

write('Tong cua mang la ', tong);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Đào Cẩm
Xem chi tiết
Huyền Trần
Xem chi tiết
Minh Đạt
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Thư ĐT
Xem chi tiết
Hồ Ngọc Thiện
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
minh dương
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết