Bài 23

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

i,n:integer;

s,tbc:real;

begin

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

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

i,n,max:integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

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

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

Var array:[1..1000] of integer;

i,n,max:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong la ',s);

write('So lon nhat la ',max);

Readln

End.

// Yêu cầu A: Nhập vào mảng a
let a = [1, 2, 3, 4, 5]; // Ví dụ: Mảng a gồm các số từ 1 đến 5

// Yêu cầu B: Tính tổng các giá trị của mảng a
let sum = 0; // Khởi tạo biến sum bằng 0
for (let i = 0; i < a.length; i++) { // Duyệt từng phần tử trong mảng a
  sum += a[i]; // Cộng từng giá trị của phần tử vào biến sum
}
console.log("Tổng các giá trị trong mảng a là: " + sum); // In kết quả tổng ra màn hình console

// Yêu cầu C: Tìm giá trị lớn nhất trong mảng a
let max = a[0]; // Khởi tạo biến max bằng giá trị đầu tiên của mảng a
for (let i = 1; i < a.length; i++) { // Duyệt từ phần tử thứ nhất đến cuối cùng của mảng a
  if (a[i] > max) { // Nếu giá trị của phần tử lớn hơn giá trị của biến max
    max = a[i]; // Gán giá trị của phần tử cho biến max
  }
}
console.log("Giá trị lớn nhất trong mảng a là: " + max); // In kết quả giá trị lớn nhất ra màn hình console

Uses crt;

var i,n,min,max: longint;

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

begin clrscr;

readln(n);

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

writeln(a[i]:3)

max:=a[1];

for i:=1 to n do begin

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

end;

writeln(max);

min:=a[1];

for i:=1 to n do begin

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

end;

writeln(min);

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.

mang = input()

mang = mang.split(' ')

max = 0

second = 0

for i in mang:

     if i>=max:

           max = i

for i in mang:

     if i>=second and < max:

           second = i

print('gia tri lon nhat la ', max)

print('gia tri lon thu 2 la ', second)

program PSMCG;

uses crt;

const N = 5;

type MangA = array[1..N] of integer;

var A: MangA;

     i, max, min, sum: integer;

begin

     for i := 1 to N do

     begin

          write('Nhap phan tu A[', i, ']: ');

          readln(A[i]);

     end;

     writeln('Mang A: ');

     for i := 1 to N do

     begin

          write(A[i], ' ');

     end;

     writeln;

     max := A[1];

     min := A[1];

     for i := 2 to N do

     begin

          if A[i] > max then max := A[i];

          if A[i] < min then min := A[i];

     end;

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

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

     sum := 0;

     for i := 1 to N do

     begin

          sum := sum + A[i];

     end;

     writeln('Tong gia tri trong mang A la: ', sum);

     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.

uses crt;

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

i,n,dem,max,t,min,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem:=dem+1;

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

end;

if dem=0 then writeln('Trong day khong co so chan')

else begin

writeln('So so chan la: ',dem);

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then t:=t+a[i];

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then

begin  

inc(dem1);

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

end;

if dem1=0 then writeln('Trong day khong co so le')

else writeln('So le nho nhat la: ',min);

readln;

end. 

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.