Bài 1: 

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

Bài 2: 

uses crt;

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

i,n,max:integer;

begin

clrscr;

write('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];

writeln(max);

readln;

end.

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Program HOC24;

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

i,k,min: integer;

begin

write('Nhap K: '); readln(k);

for i:=1 to k do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

min:=a[1];

for i:=2 to k do if a[i]<min then min:=a[i];

write('Phan tu nho nhat trong day so la: ',min);

readln

end.

Uses crt;

var i,k,min: longint;

h: array[1..100] of longint;

begin clrscr;

readln(k);

for i:=1 to k do begin

readln(h[i]);

end;

min:=h[1];

for i:=1 to n do begin

if(min>h[i]) then min:=h[i];

end;

writeln(min);

readln;

end.

uses crt;

const fi='ketqua.out'

var f1:text;

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

i,n,min:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

for i:=1 to n do 

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln(f1,min);

close(f1);

readln;

end.

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

string st;

int d;

int main()

{

getline(cin,st);

d=st.length();

cout<<d;

return 0;

}

Bài 1:

Var so,i,n,dem:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then dem:=dem+1;

End;

Write('Co ',dem,' so chan');

Readln;

End.

Bài 2:

Var st:string;

Begin

Write('Nhap vao xau ki tu ');readln(st);

Write(' Xau vua nhap co do dai la ',length(st));

Readln;

End.

# Nhập dãy số từ bàn phím
lst = list(map(int, input("Nhập dãy số cách nhau bởi dấu cách: ").split()))

# Sắp xếp dãy số theo thuật toán sắp xếp chọn
for i in range(len(lst)):
   min_idx = i
   for j in range(i+1, len(lst)):
       if lst[j] < lst[min_idx]:
           min_idx = j
   lst[i], lst[min_idx] = lst[min_idx], lst[i]

# In kết quả ra màn hình
print("Dãy số đã sắp xếp:", lst)

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.