1.Viết chương trình thực hiện các việc sau:
a) Khai báo một màng khoảng 5-10 phần tử thuộc kiểu số thực
b) Nhập các phần tử của mảng từ bàn phím
Hiện thị tổng (S) của các phần tử và giá trị trung bình cộng (TBC) của các phần tử
1.Viết chương trình thực hiện các việc sau:
a) Khai báo một màng khoảng 5-10 phần tử thuộc kiểu số thực
b) Nhập các phần tử của mảng từ bàn phím
Hiện thị tổng (S) của các phần tử và giá trị trung bình cộng (TBC) của các phần tử
program ct;
uses crt;
var A:array[1..10] of real;
i,S,TBC:real;
begin clrscr;
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
S:=0; TBC:=0;
for i:=1 to 10 do
begin
S:=S+A[i];
TBC:=S/10;
end;
writeln(‘Tong cac phan tu la: ‘,S);
writeln(‘Tung binh cong cac phan tu la: ‘,TBC);
readln;
end.
Học tốt!
program ct;
uses crt;
var i,S,tbc:real;
A:array[1..10] of real;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0; tbc:=0;
for i:=1 to 10 do
begin
S:=S+A[i];
tbc:=S/10;
end;
writeln(‘tong la:’,S);
writeln(‘trung binh cong la:’,tbc)
readln
end.