uses crt;
var a,b,c:array[1..100]of integer;
dem,dem1,n,i,j:integer;
begin
clrscr;
write('nhap chieu dai cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------}
write('day A=');
for i:=1 to n do write(a[i]:4);
{-------------xu-ly-so-duong--------------------}
writeln;
writeln('day cac so duong sau khi sao chep sang B la: ');
dem:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
for i:=1 to dem do write(b[i]:4);
{---------------xu-ly-so-am----------------------}
writeln;
writeln('day cac so am sau khi sao chep sang C la: ');
dem1:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
dem1:=dem1+1;
c[dem1]:=a[i];
end;
end;
for i:=1 to dem1 do write(c[i]:4);
readln;
end.

Help me

đây là toán mà ??

uses crt;
const fi='bai5.inp';
var f1:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
{----------xu-ly---------------}
writeln('cac so chan co trong tep la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
close(f1);
readln;
end.

Mn giúp mình với

Bạn cần sửa lại chương trình hoàn chỉnh như sau :

Propram welcome ;

var a: string[10];

begin

a :='tin hoc';

writeln(length(a));

end.

Đoạn chương trình cho kết quả là 7 .

Giải thích : Lệnh in ra kết quả nhờ writeln(length(a));

length(a) : có nghĩa là độ dài của xâu a . Ở a:='tin hoc' có độ dài là 7

hình như là thực hiện vị trí

Lời giải :

program hotrotinhoc ;

var s: string;

begin

write('Nhap xau s :'); readln(s);

while s[1]=#32 do

delete(s,1,1);

while pos(#32#32,s) <>0 do

delete(s,pos(#32#32,s),1);

while s[length(s)]=#32 do

delete (s,length(s),1);

write(s);

readln

end.

real

const
nhap='dulieu.int';
xuat='dulieu.out';
var a:array[1..100000] of longint;
i,n,j,tg:longint;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');
readln
end.