BT mảng 1 chiều

Viết chương trình nhập dãy số, in dãy số đó ra màn hình

program nhap_inds;
var a:array[1..100] of integer;
i,n:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
write(`nhap so thu `,i,`:`);
readln(a[i]);
end;
for i:=1 to n do
write(a[i],` `);
readln;
end.

Viết chương trình nhập dãy số, in dãy số đó ra màn hình, tính tổng của các phần tử trong danh sách.

program tong_ds;
var a:array[1..100] of integer;
i,n,s:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
write(`nhap so thu `,i,`:`);
readln(a[i]);
end;
for i:=1 to n do
write(a[i],` `);
s:=0;
for i:=1 to n do
s:=s+a[i];
write(`tong`,n:3,` so trong mang la`,s:4);
readln;
end.

Viết chương trình nhập dãy số, in các số lẻ ra màn hình, tính tổng của các số lẻ có trong danh sách.


program tong_ds;
var a:array[1..100] of integer;
i,n,s:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
write(`nhap so thu `,i,`:`);
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then
write(a[i],` `);
s:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
s:=s+a[i];
write(`tong cac so le trong mang la`,s:4);
readln;
end.
Viết chương trình nhập dãy số, in các số chẳn ra màn hình, tính tổng của các số chẳn có trong danh sách.


program tong_ds;
var a:array[1..100] of integer;
i,n,s:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
write(`nhap so thu `,i,`:`);
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then
write(a[i],` `);
s:=0;
for i:=1 to n do
if a[i] mod 2=0 then
s:=s+a[i];
write(`tong cac so chan trong mang la`,s:4);
readln;
end.
Viết chương trình nhập dãy số, in dãy số ra màn hình, tìm số nhỏ nhất có trong danh sách.

program tong_ds;
var a:array[1..100] of integer;
i,n,min:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
write(`nhap so thu `,i,`:`);
readln(a[i]);
end;
for i:=1 to n do
write(a[i],` `);
min:=a[1];
for i:=1 to n do
if a[i]write(`so lon nhat trong mang la`,min:4);
readln;
end.

Viết chương trình nhập dãy số, in dãy số ra màn hình, tìm số lớn nhất có trong danh sách.

program tong_ds;
var a:array[1..100] of integer;
i,n,max:integer;
begin
write(`nhap n: `);readln(n);
for i:=1 to n do
begin
write(`nhap so thu `,i,`:`);
readln(a[i]);
end;
for i:=1 to n do
write(a[i],` `);
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
write(`so lon nhat trong mang la`,max:4);
readln;