var a:array[1..500]of real;

Giúp mình ý tưởng bài đỉnh đồi pascal

Cho mình ý tưởng bài này với!  

Bài 1:

Program HOC24;

var i,n,d : byte;

t: integer;

begin

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

for i:=1 to n do 

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' phan tu la boi cua 3 va 5');

write('Tong la: ',t);

readln

end.

Bài 2:

Program HOC24;

var i,n,k : byte;

begin

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

for i:=1 to n do 

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

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

for i:=1 to n do if a[i]=k then d:=d+1;

writeln('Co ',d,' phan tu bang ',k);

Write('Cac chi so do la: ');

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

readln

end.

29: 

uses crt;

var n,i,j,kt:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

with open('songuyen.ipn', 'r') as f:

     x = [ ]

     for line in f:

          x.append(int(line))