Câu 14:

uses crt;

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

i,n,d: integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

if a[i]>=5 then d:=d+1;

end;

writeln ('so luong hs co diem tu 5d tro len: ',d);

readln;

end.

Câu 15:

uses crt;

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

i,n,max: integer;

begin

clrscr;

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

for i:=1 to n do readln (A[i]);

max:=a[1];

for i:=2 to n do 

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

writeln ('Gia tri nho nhat: ',max);

readln;

end.

câu 14:

uses crt;
var a: array[1..1000] of real;
i,n,s: integer;
begin
clrscr;
write ('nhap so luong hoc sinh: '); readln(n);
for i:=1 to n do
begin
write ('nhap diem hs thu ',i,': '); readln(a[i]);
if a[i]>=5 then inc(s);
end;
writeln ('co ',s,' hoc sinh co so diem tu 5 tro len!');
readln;
end.

câu 15:

uses crt;
var a: array [1..1000] of integer;
i,n,max:integer;
begin
clrscr;
write ('nhap so luong phan tu: '); readln(n);
for i:=1 to n do 
begin
write('nhap so thu ',i,': '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln ('Gia tri lon nhat trong day la: ',max);
readln;
end.