Tin học Làm việc với dãy số

[Anh trai mưa và em gái mưa]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho dãy số nguyên a1a2...an (0<n≤50)
a) Tìm và in ra ở vị trí có giá trị lớn nhất của tổng.
b) In ra các số lẻ ở vị trí chẵn trong dương.
c) In ra các số nguyên tố có trong dãy.
d) In ra các số hoàn hảo có trong dãy.
e) In ra các số âm, số dương trên hai dòng.

 

[Trâm Nguyễn Thị Ngọc]

a

Cho dãy số nguyên a1a2...an (0<n≤50)
a) Tìm và in ra ở vị trí có giá trị lớn nhất của tổng.
b) In ra các số lẻ ở vị trí chẵn trong dương.
c) In ra các số nguyên tố có trong dãy.
d) In ra các số hoàn hảo có trong dãy.
e) In ra các số âm, số dương trên hai dòng.

a. Không hiểu đề
b. Phải là In ra các số lẻ ở vị trí chẵn trong dãy chứ ạ
Làm gộp b,c,d

Var
  Tự khai báo ^^;
Begin
 write('nhap vao so pt cua mang:');
 readln(n);i:=2;
 write('cac so le o vt chan trong day la:');
 While i<=n do
    begin
       if a[i] mod 2 <>0 then write(a[i],' ');
       i:=i+2;
    end;
write('cac so nguyen to co trong mang la:');
For i:=1 to n do
 if a[i]>1 then
  begin
    kt:=true;
    For j:=2 to a[i] div 2 do
      if a[i] mod j=0 then kt:=false;
    if kt=true then write(a[i],' ');
  end;
write('cac so hh co trong mang la:');
For i:=1 to n do
  begin
   t:=0;
   For j:=1 to a[i]-1 do
     if a[i] mod j=0 then t:=t+j;
   if t=a[i] then write(a[i],' ');
  end;
readln
End.

e. Chạy thêm 2 vòng lặp rồi if xem số nào dương thì in ra, sau đó số âm thì in sau là đc ạ