Câu 1 :

programbai1;

var a:array[1..100] ò logint;

i,n:logint;

begin

{ Thu tu hoc sinh duoc viet theo a[..]}

repeat

write('N= ');

readln(n);

until n>0;

for i:=1 to n do

begin

write('a[',i,']=');

readln9a[i]);

end;

write('Diem cua ',n,' hoc sinh la ')

for i:=1 to n do

write(a[i],' ' );

readln;

end;

Câu 2 :

Thuật toán 1:

Máy tính sẽ thực hiện 10 vòng lặp, khi kết thúc thuật toán giá trị của S=0.5

Đoạn chương trình Pascal tương ứng :

S:=10; x=0.5;

While S > 5.2 do

S:= S - x;

Writenl(S);

Thuật toán 2 :

Máy tính sẽ không thực hiện vòng lặp nào đó do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10

Đoạn chương trình Pascal tương ứng :

S:= 10; n:=0;

While S < 10 do

Begin 

n:= n + 3

S:= S - n

End;

Writeln(S);