câu 8:

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] of integer;

begin

clrscr;

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

   for i:=1 to n do

begin

     write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

     for i:=1 to n do s:=s+A[i];

writeln('tong la:',s);

readln

end.

câu 9:

program ct;

uses crt;

var Max,i,n:integer;

A:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Max:=A[1];

for i:=2 to n do

   if Max<A[i] then Max:=A[i];

writeln('so lon nhat la:',Max);

readln

end.

câu 10

program ct;

uses crt;

var i,n,s:integer;tbc:real;

A:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

   begin

     s:=s+A[i];

     tbc:=s/n;

   end;

writeln('trung binh cong la:',tbc);

readln

end.

câu 11

program ct;

uses crt;

var i,n:integer;s:real;

begin

clrscr;

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

s:=0;

   for i:=1 to n do s:=s+1/i;

writeln('tong la:',s);

readln

end.

while do

program ct;

uses crt;

var i,n:integer;s:real;

begin

clrscr;

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

s:=0;i:=1;

while i<=n do

  begin

     s:=s+1/i;

     i:=i+1;

  end;

writeln('tong la:',s);

readln

end.

Câu 7:

*For do:

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

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

     S:=0;

   for i:=1 to n do

     S:=S+i;

   writeln('Tong la: ',S);

readln;

end.

*While do:

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

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

     S:=0; i:=0;

   while i<=n do

     begin

        S:=S+i;

        i:=i+1;

     end;

   writeln('Tong la: ',S);

readln;

end.

Câu 8:

program ct;

uses crt;

var A:array[1..1000] of integer;

      i,n:integer;

      S:longint;

begin clrscr;

   write('Nhap do dai day so: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     S:=S+A[i];

   writeln('Tong day so la: ',S);

readln;

end.

Câu 9:

program ct;

uses crt;

var A:array[1..1000] of integer;

      i,n,m:integer;

begin clrscr;

   write('Nhap do dai day so: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     m:=A[1];

   for i:=2 to n do

     if A[i]>m then m:=A[i];

   writeln('Gia tri lon nhat la: ',m);

readln;

end.

Câu 10:

program ct;

uses crt;

var A:array[1..1000] of integer;

      i,n:integer;

      Tb:real;

begin clrscr;

   write('Nhap do dai day so: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     Tb:=0;

   for i:=1 to n do

     Tb:=(Tb+A[i])/n;

   writeln('Trung binh day so la: ',Tb);

readln;

end.

Câu 11:

*For do:

program ct;

uses crt;

var i,n:integer;

      S:real;

begin clrscr;

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

     S:=0;

   for i:=1 to n do

     S:=S+(1/i);

   writeln('Tong S la: ',S:4:2);

readln;

end.

*While do:

program ct;

uses crt;

var i,n:integer;

      S:real;

begin clrscr;

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

     S:=0; i:=1;

   while i<=n do

     begin

        S:=S+(1/i);

        i:=i+1;

     end;

   writeln('Tong S la: ',S:4:2);

readln;

end.

Học tốt!