1.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, s: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
s:=s+A[i];
end;
write('Tong = ', s);
readln
end.
2.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, sd, s1: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
sd:=0;
s1:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
if A[i]>0 then
begin
sd:=sd+1;
s1:=s1+A[i];
end;
end;
writeln('Tong = ', s1);
write('So luong = ', sd);
3.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, sa, s2: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
sa:=0;
s2:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
if A[i]<0 then
begin
sa:=sa+1;
s2:=s2+A[i];
end;
end;
writeln('Tong = ', s2);
write('So luong = ', sa);
readln
end.
4.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, sd, sa: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
if A[i]>0 then
begin
sd:=sd+1;
s1:=s1+A[i];
end;
if A[i]<0 then
begin
sa:=sa+1;
s2:=s2+A[i];
end;
end;
writeln('- Tong TBC = ', (s1+s2)/n:3:2);
writeln(' TBC phan tu duong: ', s1/sd:3:2);
writeln(' TBC phan tu am: ', s2/sa:3:2);
readln
end.
5.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
for i:=1 to n do if A[i]>0 then
begin
writeln('Chi so cua so hang duong dau tien: ', i);
break;
end;
end;
readln
end.
6.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
for i:=1 to n do if A[i]<0 then
begin
writeln('Chi so cua so hang am dau tien: ', i);
break;
end;
end;
readln
end.
7.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
for i:=n downto 1 do if A[i]>0 then
begin
writeln('Chi so cua so hang duong cuoi: ', i);
break;
end;
end;
readln
end.
8.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
for i:=n downto 1 do if A[i]<0 then
begin
writeln('7. Chi so cua so hang am cuoi: ', i);
break;
end;
end;
readln
end.
9.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, max, k: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
max:=A[1];
for i:=1 to n do if max<A[i] then
begin
max:=A[i];
k:=i;
end;
writeln('So hang lon nhat la ', max, ' va chi so cua no la ', k);
readln
end.
10.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, min, k: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
min:=A[1];
for i:=1 to n do if min>A[i] then
begin
min:=A[i];
k:=i;
end;
writeln('So hang lon nhat la ', min, ' va chi so cua no la ', k);
readln
end.
11.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, max, k: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
for i:=1 to n do if A[i]<0 then
begin
max:=A[i];
k:=i;
break;
end;
for i:=1 to n do if A[i]<0 then if max<A[i] then
begin
max:=A[i];
k:=i;
end;
writeln('So hang am lon nhat la ', max, ' va chi so cua no la ', k);
readln
end.
12.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, min, k: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
for i:=1 to n do if A[i]>0 then
begin
min:=A[i];
k:=i;
break;
end;
for i:=1 to n do if A[i]>0 then if min>A[i] then
begin
min:=A[i];
k:=i;
end;
writeln('So hang duong nho nhat la ', min, ' va chi so cua no la ', k);
readln
end.
13.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, max, k, t: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
write('Gia tri lon thu nhi la ');
max:=A[1];
for i:=1 to n do if max<A[i] then max:=A[i];
if max=A[1] then t:=A[2] else t:=A[1];
for i:=1 to n do if (t<A[i]) and (A[i]<>max) then
begin
t:=A[i];
k:=i;
end;
writeln(t, ' va chi so cua no la ', k);
readln
end.
14.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, min, k, t: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
write('Gia tri nho thu nhi la ');
min:=A[1];
for i:=1 to n do if min>A[i] then min:=A[i];
if min=A[1] then t:=A[2] else t:=A[1];
for i:=1 to n do if (t>A[i]) and (A[i]<>min) then
begin
t:=A[i];
k:=i;
end;
write(t, ' va chi so cua no la ', k);
readln
end.
