Giúp mình với nha mik dg cần sang mai thi hk
Viết chương trình sử dụng biến mảng để nhập từ bàn phím độ dài của dãi số và các phần tử trong dãy số đó. Tính tổng các phần tử trong dãy số và in kết quả ra màn hình.
Giúp mình với nha mik dg cần sang mai thi hk
Viết chương trình sử dụng biến mảng để nhập từ bàn phím độ dài của dãi số và các phần tử trong dãy số đó. Tính tổng các phần tử trong dãy số và in kết quả ra màn hình.
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
s:=0;
for i:=1 to n do s:=s+A[i];
writeln(‘tong cua day so la:’,s);
readln
end.
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;