Cao Minh Thành's Profile

2¹⁵ -2^-15 nha bạn

uses crt;
type AI = array of integer;

var m,l,k,i,j:integer;
temp:integer;
a:AI;
b: array [1..10000] of integer;
c:  array [1..10000] of integer;
begin
clrscr;
write('nhap so luong phan tu mang: ');
readln(m);
setlength(a,m);
for i := low(a) to high (a) do
 begin
    write('nhap gia tri phan tu mang a[',i,']');
    readln(a[i]);
end;
l:= 1;
k:= 1;
repeat
for j := low(a) to high (a) do
  begin
  if (a[j] > 0  ) then
   begin
   b[k] := a[j];
   k := k + 1;
   end
  else if (a[j] < 0 ) then
  begin
  c[l] := a[j] ;
  l := l +1;
  end;
  end;
until(j = i) ;
writeln('CAC GIA TRI AM :':9);
for i:= 1 to l -1 do write(c[i] :4 ) ;
writeln;
writeln('CAC GIA TRI DUONG :':9);
for i := 1 to k -1 do write (b[i]:4);
readln;
end.

uses crt;
var a:array [1..10] of integer;
m,i :integer;

begin
clrscr;
writeln('CAU A':40);
for i := 1 to 10 do
begin
write('nhap gia tri phan tu a[',i,']:');
readln(a[i]);
end;
writeln('CAU B':20);
for i := 1 to 10 do
begin
if i mod 2 = 0 then writeln('gia tri phan tu thu ',i,' la:',a[i]);
end;
for i := 1 to 10 do
   if i mod 2 = 0 then m := m + a[i];
   writeln('CAU C':20);
write('tong cac gia tri co vi tri chan la :',m);
   readln;
end.

uses crt;
type AI = array [1..100] of integer;
var k,m,n,i,l :integer;
a,b:AI;
begin
clrscr;
write('nhap so luong phan tu mang :') ;
readln(m);
for i := 1 to m do
begin
write('nhap gia tri phan tu a[',i,']:');
readln(a[i]);
end;
write('nhap khoa k :');
readln(k);
n := 1 ;
for i := 1 to m do
begin
if (a[i] > k ) then
begin
b[n] := a[i];
n:= n +1 ;
end;
end;
for i:= 1 to n do l:= l+a[i];
write('gia tri cac phan tu lon hon khoa k la ',l);
readln;
end.

từ khóa uses cũng giống như include trong C++ là từ khóa để gọi thư viện cần sử dụng 

uses crt;
var
a:array [1..100] of integer;
b :array [1..100] of integer;
l,m,n,i,k :integer;
begin
clrscr;
write('nhap so luong phan tu :');
readln(m);
{setlength(a,m);
for i := low (a) to high (a) do
begin
write('nhap gia tri phan tu a[',i,']');
readln(a[i]);
end;     }
for i:= 1 to m do
begin
write('nhap gia tri phan tu a[',i,']');
readln(a[i]);
end;
write('nhap gia tri cua khoa k : ');
readln(k);
n := 1;
for i := 1 to m do
begin
if (a[i]>k) then
begin
b[n] := a[i];
n:= n+1;
end;
end;
for i := 1 to n-1 do
begin
l:= l + b[i];
end;
write('gia tri can tim la ',l );
readln;
end.

viết bằng pascal à bạn ???