phần đọc tự viết

 for i:=j to n do 

 b[i+1]:=a[i];

for i:=1 to j do write(g,a[i]);

write(g,M);

for i:=j+1 to n+1 do 

 write(g,b[i]);

uses crt;

var a,b:array[1..100]of integer;

    i,n,m,k,tam: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]:6);

writeln;

write('Nhap m='); readln(m);

write('Nhap chi so k='); readln(k);

for i:=1 to k do

 b[i]:=a[i];

for i:=k+2 to n+1 do

  b[i]:=a[i-1];

b[k+1]:=m;

for i:=1 to n+1 do

  write(b[i]:6);

readln;

end.

uses crt;

var a,b:array[1..100]of real;

i,n,dem:integer;

max:real;

begin

clrscr;

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

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i]>0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

if dem=0 then writeln('1')

else begin

max:=b[1];

for i:=1 to dem do

if max<b[i] then max:=b[i];

writeln(max:4:2);

end;

readln;

end.

Hãy tìm giá trị dương nhỏ nhất trong mảng 1 chiều các số thực nếu mảng không có giá trị dương thì 

Program Gia_tri_duong_nho_nhat;Uses crt;Var a : array[1..100] of real;    n, i : longint;    min : real;    ok : boolean;Begin     Clrscr;     Write(' Nhap so phan tu cua mang : '); readln(N);     ok := false;     min := maxint;     For i := 1 to N do         Begin              Write(' Nhap phan tu thu ',i,' : '); readln(a[i]);              If (a[i] > 0) and (a[i] < min) then                 Begin                      min := a[i];                      ok := true;                 end;         end;     If ok then Write(' So duong nho nhat trong day la : ',min:3:2)           else Write(' -1 ');     readln;end.

# Nhập mảng

m = int(input('Nhập số hàng: '))

n = int(input('Nhập số cột: '))

array = [[int(input()) for _ in range(n)] for _ in range(m)]

# In các giá trị chẵn

for i in range(m):

      for j in range(n):

           if array[i][j] % 2 == 0:

                print(array[i][j], end=' ')

      print()

cau 1:

uses crt;

var a:array[1..100] of integer;

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

uses crt;

var a:array[1..100]of integer;

i,n,t,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

t:=0;

for i:=1 to n do 

  if max=a[i] then t:=t+a[i];

writeln('Tong cac phan tu co gia tri lon nhat la: ',t);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,t,j,tam:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:5);

writeln;

writeln('Cac so duong la: ');

for i:=1 to n do if (a[i]>0) then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t+a[i];

writeln(t);

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.