Ok. Qúa là easy

Repeat 5 [ repeat 24 [ FD 10 RT 15 ] LT 36 PU FD 20 PD ]

 Bạn suy ra từ lệnh gốc vẽ đường tròn

REPEAT 60 [FD 5 RT 6]

vậy

REPEAT 5[REPEAT 60[FD 5 RT 6]RT 90] =D

Cấu trúc lặp có 2 dạng:

- Lặp với số lần biết trước 

- Lặp với số lần chưa biết trước.

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

i,max:integer;

Begin

For i:=1 to  100 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

write('So lon nhat la ',max);

Readln

End.

Uses crt;

var i,n,max; longint;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(n); readln;

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

write('So nguyen lon nhat la: ',max);

readln;

end.

program TinhTBCTimSoNT;

var
  ten, lop: string;
  n, i, tong, dem: integer;
  A: array [1..11] of integer;
  trung_binh: real;

function LaSoNguyenTo(x: integer): boolean;
var
  i: integer;
begin
  if x < 2 then
    LaSoNguyenTo := false
  else if x = 2 then
    LaSoNguyenTo := true
  else if x mod 2 = 0 then
    LaSoNguyenTo := false
  else
  begin
    i := 3;
    while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
      i := i + 2;
    LaSoNguyenTo := x mod i <> 0;
  end;
end;

begin
  // Nhập tên và lớp của học sinh
  write('Nhập tên của học sinh: ');
  readln(ten);
  write('Nhập lớp: ');
  readln(lop);

  // Nhập dãy số nguyên và tính trung bình cộng
  repeat
    write('Nhập số phần tử của dãy số (n<12): ');
    readln(n);
  until n < 12;
  tong := 0;
  for i := 1 to n do
  begin
    write('Nhập phần tử thứ ', i, ': ');
    readln(A[i]);
    tong := tong + A[i];
  end;
  trung_binh := tong / n;

  // In tên, lớp, dãy số và trung bình cộng ra màn hình
  writeln('Học sinh: ', ten);
  writeln('Lớp: ', lop);
  write('Dãy số: ');
  for i := 1 to n do
    write(A[i], ' ');
  writeln;
 
  // In các số nguyên tố của dãy số ra màn hình
  writeln('Các số nguyên tố của dãy số:');
  for i := 1 to n do
    if LaSoNguyenTo(A[i]) then
      writeln(A[i]);
end.

1) Đề chưa rõ ràng!

2) var a:array[1..1000] of real;

i,n:integer;

min:real;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

end;

min:=a[1];

for i:=2 to n do

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

write('So nho nhat trong day la ',min:10:2);

readln

end.

program CheckOddNumber;

function IsOddNumber(n: integer): boolean;
begin
  if n mod 2 = 1 then
    IsOddNumber := true
  else
    IsOddNumber := false;
end;

var
  n: integer;
begin
  writeln('Nhap mot so nguyen duong: ');
  readln(n);

  if IsOddNumber(n) then
    writeln(n, ' la so le.')
  else
    writeln(n, ' ko la so le.');

  readln;
end.

Mọi người ai làm được giúp mình với ạ mình đang cần gấp