Chương trình thiếu cậu ơi, thêm vào ạ

trong dãy đó, bạn có thể sử dụng ngôn ngữ lập trình Python như sau:
```python
n = int(input("Nhập số phần tử của
dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ
{}: ".format(i+1))))
print("Các số nguyên tố trong dãy
là:")
for num in a:
if num > 1:
for i in range(2, int(num/2)+1):
if (num % i) == 0:
break
else:
print(num\()\) ''' 

# Ninh OSS

Program HOC24;

var i,n: integer;

a: array[1..1000] of integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

begin

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do if nt(a[i]) then write(a[i],' ');

readln

end.

program TinhSanLuongLua;
var
num_households, i: integer;
xom3_harvest, xom6_harvest: array[1…100] of real;
xom3_total, xom6_total, xom3_avg, xom6_avg: real;
begin
// Nhập vào số lượng hộ gia đình ở xóm 3 và xóm 6
write('Nhap so luong ho gia dinh o xom 3 va xom 6: ');
readln(num_households);

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 3
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 3:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom3_harvest[i]);
end;

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 6
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 6:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom6_harvest[i]);
end;

// Tính tổng sản lượng thu hoạch lúa của từng xóm
xom3_total := 0;
xom6_total := 0;
for i := 1 to num_households do
begin
xom3_total := xom3_total + xom3_harvest[i];
xom6_total := xom6_total + xom6_harvest[i];
end;

// Tính sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
xom3_avg := xom3_total / num_households;
xom6_avg := xom6_total / num_households;

// In ra màn hình sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 3 la: ', xom3_avg:0:2);
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 6 la: ', xom6_avg:0:2);

Bạn tham khảo

program TinhSanLuongLua;
const
  SoHoGiaDinh = 5;

var SanLuongXom3: array[1..SoHoGiaDinh] of Integer;
      SanLuongXom6: array[1..SoHoGiaDinh] of Integer;
       i: Integer;
  begin
  writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 3:');
  for i := 1 to SoHoGiaDinh do
  begin
    write('Ho gia dinh ', i, ': ');
    readln(SanLuongXom3[i]);
  end;
  writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 6:');
  for i := 1 to SoHoGiaDinh do
  begin
    write('Ho gia dinh ', i, ': ');
    readln(SanLuongXom6[i]);
  end;
  writeln('Chenh lech san luong thu hoach lua cua moi ho gia dinh o xom 3:');
  for i := 1 to SoHoGiaDinh do
  begin
    writeln('Ho gia dinh ', i, ': ', SanLuongXom3[i] - SanLuongXom6[i]);
  end;
   readln;
end.

Bài 1

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

i,n:integer;

p:longint;

Begin

p:=1;

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

if a[i] mod 2 = 0 then p:=p*a[i];

End;

Write('Tich cac so chan la: ',p);

Write('Day viet nguoc lai la ');

For i:=n downto 1 do 

Write(a[i]:8);

Readln

End.

program TinhTichVaInDaoNguoc;
var a: array[1..1000] of integer;
       i, n: integer;
       s: longint;
begin
 s := 1;
  write'(nhap vao n : ');
  readln(n);

  for i := 1 to n do
  begin
    write('Nhap so thu ', i, ' = ');
    readln(a[i]);

    if a[i] mod 2 = 0 then
      s := s * a[i];
  end;

  writeln('Tich cac so chan la: ', s);
  writeln('Day viet nguoc lai la: ');

  for i := n downto 1 do
    write(a[i]:8);

  readln;
end.

Program HOC24;

var i,n: integer;

tong,tich: longint;

begin

write('Nhap N: '); readln(n);

tong:=0; tich:=1;

for i:=1 to n do 

begin

tong:=tong+i;

tich:=tich*i;

end;

writeln('Tong la: ',tong);

write('Tich la: ',tich);

readln

end.

program TinhTongTichTu1DenN;
var n, i: integer;
       tong, tich: longint;
begin
  tong := 0;
  tich := 1;

  write('Nhap vao n: ');
  readln(n);
  for i := 1 to n do
  begin
    tong := tong + i;
    tich := tich * i;
  end;

  writeln('Tong cac so tu 1 den ', n, ': ', tong);
  writeln('Tich cac so tu 1 den ', n, ': ', tich);

  readln;
end.

Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)

Dòng 4: Sai -> sửa: x: integer;

Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)

Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)

Dòng 11: Sai -> Sửa: end;

Các dòng còn lại đều đúng và không có vấn đề để sửa.

Bài chính xác như vầy, em tự sửa lại trên giấy nhé!

Program baiso2;

Uses crt;

Var x,y:integer;

Begin

x:=100;

y:=0;

While x<1000 do

Begin

y:=y+x;

x:=x+10;

End;

Readln;

End.

1.A

2.A

3.D

4.C

5.B

Cảm ơn ạ!

Câu 58:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 <> 0 then write(n,' la so le')

Else write(n,' khong la so le');

Readln

End.

Câu 61:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 = 0 then write(n,' la so chan')

Else write(n,' khong la so chan');

Readln

End.