Bài 5:

Program baitap;

Uses crt;

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

      S:real;

      i,N:integer;

Begin

Clrscr;

Write('Nhap N='); Readln(N);

S:=0;

For i:=1 to n do

     Begin

     Write('Nhap kw ho ',i,':');

     Readln(A[i]);

     S:=S+A[i];

     End;

Writeln('Trung binh so kw tieu thu cua N ho la:',S/N:5:1);

Readln

End.

Bài 6:

Program baitap;

Uses crt;

Var A:array[1..200] of real;

      S,tb:real;

      i,N,dem:integer;

Begin

Clrscr;

S:=0; dem:=0;

Write('Nhap N='); Readln(N);

For i:=1 to N do

     Begin

     Write('Diem thi hoc sinh ',i,':');

     Readln(A[i]);

     S:=S+A[i];

     End;

tb:=S/n;

For i:=1 to N do If A[i]>=tb then dem:=dem+1;

Writeln('Trung binh diem thi cua N hoc sinh la:',tb:2:1);

Writeln('Co ',dem,' hoc sinh co diem thi tu trung binh tro len');

Readln

End.

Bài 7:

Program baitap;

Uses crt;

Var A:array[1..200] of real;

      min:real;

      i,N:integer;

Begin

Clrscr;

Write('Nhap N='); Readln(N);

For i:=1 to N do

     Begin

     Write('Diem thi hoc sinh ',i,':');

     Readln(A[i]);

     End;

min:=A[1];

For i:=2 to n do If A[i]<min then min:=A[i];

Writeln('Hoc sinh co diem nho nhat la:',min:2:1);

Readln

End.

Bài 8:

Program baitap;

Uses crt;

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

      max:real;

      i,N:integer;

Begin

Clrscr;

Write('Nhap so ho N='); Readln(N);

For i:=1 to n do

     Begin

     Write('Nhap kw ho ',i,':');

     Readln(A[i]);

     End;

max:=A[1];

For i:=2 to n do If A[i]>max then max:=A[i];

Writeln('Ho su dung dien nhieu nhat la:',max:5:2);

Readln

End.

`5`

uses crt;
var a:array[1..100]of longint;
n,s,i:longint;
begin
clrscr;
write('nhap so ho ');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('so kw ho',i,' ');
readln(a[i]);
s:=s+a[i];
end;
until
i>=n;
writeln('so kw trung binh ',s/n:5:1);
readln
end.

`6`

uses crt;
var a:array[1..100]of real;
n,i,d:longint;
s:real;
begin
clrscr;
write('nhap so hoc sinh');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('diem thi hoc sinh',i,' ');
readln(a[i]);
s:=s+a[i];
if a[i]>5 then d:=d+1;
end;
until
i>=n;
writeln('diem thi trung binh ',s/n:5:1);
writeln('co ',d ,' hoc sinh diem tren trug binh');
readln
end.

`7`

uses crt;
var a:array[1..100]of real;
n,i:longint;
min:real;
begin
clrscr;
write('nhap so hoc sinh');
readln(n);
i:=0;
repeat
begin
i:=i+1;
write('diem thi hoc sinh',i,' ');
readln(a[i]);
end;
until
i>=n;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('so diem nho nhat',min:2:3);
readln
end.

`8`

uses crt;
var a:array[1..100]of real;
n,i:longint;
m:real;
begin
clrscr;
write('nhap so ho ');
readln(n);
i:=0;
repeat
begin
i:=i+1;
write('so kw ho',i,' ');
readln(a[i]);
end;
until
i>=n;
m:=a[1];
for i:=1 to n do
if m<a[i] then m:=a[i];
writeln('so ho co so kw cao nhat',m:2:2);
readln
end.