uses crt;
var n,i:integer;
b:array[1..100]of integer;
begin
clrscr;
randomize;
write('n='); readln(n);
for i:=1 to n do
b[i]:=random(10)+10;
for i:=1 to n do write(b[i]:4);
readln;
end.

uses crt;
var a:string;
d,i:integer;
begin
clrscr;
write('nhap xau a:'); readln(a);
d:=length(a);
for i:=1 to d do
if a[i]=' ' then delete(a,i,1);
writeln('xau b=',a);
readln;
end.

uses crt;
const MN = 100;
var
a: array [1..MN] of integer;
n: integer;
Procedure Gen(m: integer);
var i: integer;
begin
Writeln('Hay nhap n:');​

Readln(n);

randomize; n := m;
for i := 1 to n do a[i] := random(m);

writeln(a[i]);

readln;
end.

Bastkoo Đúng chưa bạn?

Bạn ơi, bạn giải gấp giúp mình mấy bài pascal về dấu cách mà mình có đăng lên nha, mình k biết làm. Huhu,,,,, cảm ơn bạn nhiều

uses crt;
var a:string;
d,i,dem:integer;
begin
clrscr;
write('nhap xau a:'); readln(a);
d:=length(a);
dem:=0;
for i:=1 to d do
if a[i]=' ' then inc(dem);
writeln('so luong dau cach co trong xau a la:',dem);
readln;
end.

program so_luong_chu_A;

uses crt;

var

st:string;

i,dem:integer;

begin

clrscr;

writeln('Moi nhap xau :',st); readln(st);

dem:=0;

for i:=1 to length(st) do

begin

if (st[i]='A') then inc(dem);

end;

writeln(dem);

for i:=1 to dem do write('A');

readln;

end.

#Học tốt!

up

tao bán nick

uses crt;
var a:array[1..100]of integer;
i,n,k,dmin,dmax:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------xuat-day---------------------}
for i:=1 to n do
write(a[i]:4);
{-----------xu-ly------------------------}
writeln;
write('nhap so k='); readln(k);
dmin:=0;
dmax:=0;
for i:=1 to n do
begin
if a[i]<k then inc(dmin);
if a[i]>k then inc(dmax);
end;
writeln('so phan tu nho hon ',k,' trong day so la: ',dmin);
writeln('so phan tu lon hon ',k,' trong day so la: ',dmax);
readln;
end.

uses crt;
var a:array[1..100]of integer;
i,n,vt,k:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------------------------}
for i:=1 to n do
write(a[i]:4);
{---------------------------------------------}
writeln;
write('nhap so k:'); readln(k);
vt:=0;
for i:=1 to n-1 do
begin
if a[i]+a[i+1]=k then begin
vt:=i;
break;
end;
end;
if vt<>0 then write(a[vt],' va ',a[vt+1])
else writeln('khong co');
readln;
end.

uses crt;
var a:array[1..100]of integer;
n,i,dem,dem1,t,j,tam:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------xuat-day---------------------}
for i:=1 to n do
write(a[i]:4);
{-----------cau-a----------------------------}
writeln;
writeln('{-----------------------------------------------------}');
dem:=0;
for i:=1 to n do
if a[i]=100 then inc(dem);
writeln('so phan tu co gia tri bang 100 la: ',dem);
{---------cau-b-------------------------------------}
writeln('{-----------------------------------------------------}');
dem1:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem1);
t:=t+a[i];
end;
writeln('so phan tu co gia tri duong la: ',dem1);
writeln('tong cac phan tu co gia tri duong la: ',t);
{--------------cau-c-----------------------}
writeln('{-----------------------------------------------------}');
i:=1;
while a[i]<=0 do
inc(i);
writeln('so nguyen duong dau tien trong day la: ',a[i]);
writeln('chi so cua so nguyen duong do la: ',i);
{---------------cau-d-----------------------}
writeln('{-----------------------------------------------------}');
writeln('day so duoc sap xep giam dan la: ');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.

uses crt;

var i,n,x,kt:longint;

A:array[1..10000] of longint;

begin

clrscr;

write('Nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i, ' cua mang: '); readln(A[i]);

end;

kt:=0;

write('Nhap X: '); readln(x);

for i:=1 to n do

if A[i]=x then

begin

writeln('Tim thay');

break;

end

else kt:=kt+1;

if kt=n then writeln('Khong tim thay');

readln

end

bạn ơi chữ break có nghĩa là gì?