thằng này bị khùng

Câu 7: Viết chương trình đọc file input.txt, file được bố trí như sau:

- Dòng đầu tiên ghi số nguyên n(1<n<100) là số phần tử của file

- n dòng kế tiếp, mỗi dòng là một số nguyên

ghi ra flie output.txt dãy giảm liên tiếp dài nhất.

- Dòng đầu là số phần tử của dãy

- Dòng 2 là dãy các phần tử tăng dài nhất

Câu 8: Viết chương trình đọc file input.txt, file được bố trí như sau:

- Dòng đầu tiên ghi số nguyên n(1<n<100) là số phần tử của file

- n dòng kế tiếp, mỗi dòng là một số nguyên

ghi ra flie output.txt dãy các số nguyên tố liên tiếp dài nhất liên tiếp dài nhất.

- Dòng đầu là số phần tử của dãy

Dòng 2 là dãy các phần tử tăng dài nhất

Câu 7: Viết chương trình đọc file input.txt, file được bố trí như sau:

- Dòng đầu tiên ghi số nguyên n(1<n<100) là số phần tử của file

- n dòng kế tiếp, mỗi dòng là một số nguyên

ghi ra flie output.txt dãy giảm liên tiếp dài nhất.

- Dòng đầu là số phần tử của dãy

- Dòng 2 là dãy các phần tử tăng dài nhất

Câu 8: Viết chương trình đọc file input.txt, file được bố trí như sau:

- Dòng đầu tiên ghi số nguyên n(1<n<100) là số phần tử của file

- n dòng kế tiếp, mỗi dòng là một số nguyên

ghi ra flie output.txt dãy các số nguyên tố liên tiếp dài nhất liên tiếp dài nhất.

- Dòng đầu là số phần tử của dãy

Dòng 2 là dãy các phần tử tăng dài nhất

uses crt;

var b:array[1..1000]of longint;n,a,i,d:longint;

begin

clrscr;

write('nhap so phan tu');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu thu',i,':');readln(b[i]);

end;

write('nhap so can tim kiem trong day so vua nhap:');readln(a);

d:=0;

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

if d=0 then writeln('so',a,'ko co trong day so')else writeln('so',a,'co trong day so');

readln;

end.

bạn thiếu uses crt; thì nó báo lỗi đó

uses crt;

var n,t,i:Longint;a:array[1..1000]of longint;

begin

clrscr;

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

for i:=1 to n do 

begin

readln(a[i]);

t:=t+a[i];

end;

writeln('t:=',t);

readln;

end.

bạn đó nhập chứ copy ko thể gửi câu trả lời

quay phải 90,đi lùi 90 bước