Tin học Viết chương trình

[loctp2002]

[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.

Help!! Viết ct tìm tất cả các số trong dãy số thỏa mãn tính chất bằng tổng của 2 số đứng trước nó.
Vd: cho dãy số có 7 phần tử sau: 5 8 13 4 9 2 11
Thì kết quả là 13 11

 

[Hacker!!]

code nè:
program so;
uses crt;
var
a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('nhap n=');read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a);
writeln;
end;
clrscr;
for i:=1 to n do write(a:4);
for i:=3 to n do
if a[i-2]+a[i-1]=a then
write(a:4);
readln;
readln
end.

 

[loctp2002]

code nè:
program so;
uses crt;
var
a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('nhap n=');read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a);
writeln;
end;
clrscr;
for i:=1 to n do write(a:4);
for i:=3 to n do
if a[i-2]+a[i-1]=a then
write(a:4);
readln;
readln
end.

nó cứ bị lỗi cannot read or write variables of this type