viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0
By Claire
By Claire
uses crt;
var n,i,s:longint;B:array[1..100]of longint;
begin
clrscr;
repeat
write(‘Nhap so luong phan tu: ‘);readln(n);
if (n<=0)and(n>100) then write(‘NHAP LAI!’);
until (n>0)and(n<=100);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(B[i]);
inc(s,B[i]);
end;
write(‘Tong: ‘,s);
readln
end.
program phuongt;
uses crt;
var A: array[1..500] of integer;
n, s, i: integer;
begin
clrscr;
write(‘Nhap n (0<n<100) = ‘); readln(n);
if (n<1) or (n<100) then write(‘Nhap sai yeu cau!’) else
begin
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ); readln(A[i]);
s:=s+A[i];
end;
write(‘Day vua nhap la: ‘);
for i:=1 to n do write(A[i]:3);
writeln;
write(‘Tong = ‘, s);
end;
readln
end.