câu 1:

uses crt;

var i,n,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n):

for i:=1 to n do

if i mod 2<>0 then s:=s+sqr(i);

writeln ('tong la: ',s);

readln;

end.

câu 2:

uses crt;

var a: array[1..100] of integer;

i,n,min: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');  readln (a[i]);

end;

min:=a[1];

for i:=2 to n do

if min<a[i] then min:=a[i];

writeln ('so nho nhat la: ',min);

readln;

end.

Câu 1:

program Cau_1;

uses crt;

var n,i,T: integer;

Begin

         clrscrl;

         write('Nhap n: '); readln(n);

         for i:=1 to n do

              if i mod 2=0 then T:=T+i*i;

         write('Tong binh phuong cac so le = ',T);

         readln

End.

Câu 2:

program Cau_2;

uses crt;

var n,i,x,min: integer;

Begin

         clrscrl;

         write('Nhap n: '); readln(n);

         min:=1;

         for i:=1 to n do

         begin

                  write('Nhap so thu ',i,': '); readln(x);

                  if min>x then min:=x;

         end;

         write('So nho nhat: ',min);

         readln

End.