uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

readln(n);

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

readln(k);

dem:=0;

for i:=1 to n do

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

write(dem);

readln;

end.

python hay pascal

câu 1:

Var s, i: longint;

Begin

   S := 0;  //Thiếu dấu chấm phẩy ở đey

   i := 1;

   while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp

   begin

      s := s + i;

      i := i + 1;

   end;

   write('s = ', s);

end.

câu 2:

Var p, i, n: real;

Begin

   Readln(n);

   p := 1;

   for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng

   begin

      p := p * i / (i + 1);

   end;

   write('p = ', p);

end.

câu 3:

Var a: array [1..50] of longint;

n, s, i: real; //Thiếu dấu chấm phẩy ở đey

Begin

   Readln(n);

   For i := 1 to n do

   begin

      Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng

   end;

   S := 0;

   For i := 1 to n do

   begin

      S := S + a[i];

   end;

   write('s = ', S); //Sửa lại tên biến trong write

end.

b

A) Nháy chuột vào trang trình chiếu có chứa đối tượng chọn thẻ Animations rồivchonj hiệu ứng
B) Nháy chuột lên đối tượng cần tạo hiệu ứng, chọn thẻ Animations rồi chọn hiệu ứng cho đối tượng
C) Chọn thẻ Animations, chọn hiệu ứng rồi nháy chuột lên đối tượng cần tạo hiệu ứng
D) Chọn thẻ Animations rồi chọn đối tượng cần tạo hiệu ứng
=> B

giúp mình với các bạn

A. REPEAT 5[ REPEAT 6 [ FD 50 RT 60]  RT 72]