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

LD

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ố

LD
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ự
DC
Xem chi tiết
HT
Xem chi tiết
MD
Xem chi tiết
SK
Xem chi tiết
NN
Xem chi tiết
TD
Xem chi tiết
HT
Xem chi tiết
NM
Xem chi tiết
MD
Xem chi tiết
MA
Xem chi tiết