Bài 1:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,da,dd: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
da:=0; dd:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]>0 then inc(dd);
If A[i]<0 then inc(da);
End;
Write('Co ',dd,' so duong va ',da,' so am');
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,max,min,vmin,vmax: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
min:=maxlongint;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]<min then
Begin
min:=A[i];
vmin:=i;
End;
End;
max:=A[1];
For i:=2 to n do
If A[i]>max then
Begin
max:=A[i];
vmax:=i;
End;
Writeln('Max: A[',vmax,'] = ',max);
Write('Min: A[',min,'] = ',min);
Readln
End.
Bài 3:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i: longint;
Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;
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 ngto(A[i]) then Write(A[i],' ');
Readln
End.
