uses crt;

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

i,n:integer;

tb:real;

begin

clrscr;

readln(n);

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

tb:=0;

for i:=1 to n do tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

readln(n);

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

dem:=0;

for i:=1 to n do

  if a[i]>=8 then inc(dem);

writeln(dem);

readln;

end.

Bạn có thể nêu rõ là phần thân của chương trình nào được không(vd: số nguyên tố, số song tố, ...) 

Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
    fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
        assign(f,fi);
        reset(f);
        readln(f,n,m);
        for i:=1 to n do read(f,a[i]);
        close(f);
end;
Procedure out;
begin
        assign(f,fo);
        rewrite(f);
        d:=0;
        for i:=1 to n-1 do
        Begin
        If a[i]=m then d:=d+1;
        for j:=i+1 to n do
                 begin
                         t:=0;
                         for k:=i to j do t:=t+a[k];
                         if t=m then d:=d+1;
                 end;
        End;
        if a[n]=m then d:=d+1; write(f,d);
        close(f);
end;
Begin
ip;
out;
End.

Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :

A. x:= 2.5;

B. b:= (a=4) or (c=7); <= B

C. c:= pi*12;

D. a:=3,12;

B. sai vì đây là câu lệnh logic,

D. sai vì trong pascal phần thập phân và phần nguyên ngăn cách nhau bởi dấu chấm không phải dấu phẩy

Câu 8: A

Câu 9: B

Câu 11: B

a: if (a=b) or (b=c) or (a=c) then writeln('Tam giac can');

b: if (a=c) and (b=c) then writeln('Tam giac deu');

c: if (x mod 2<>0) and (x mod 3=0) then writeln('x la so nguyen le va chia het cho 3');

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

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

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

program sonho;

var

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

     k, n, i, min: integer;

begin

     write('Nhap n: ');

      readln(n);

     write('Nhap cac phan tu cua day: ');

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     write('Nhap k: ');

     readln(k);

     min := arr[1];

     for i := 2 to k do

     begin

          if (arr[i] < min) then

               min := arr[i];

     end;

     writeln('So nho thu ', k, ' trong day la: ', min);

end.