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

s,tbc:real;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap diem cua ban thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Diem trung binh la ',s);

Readln

End.

(x + 2/3) + 1/11 = [10/(-33) . 11/8] . 24/(-55)

(x + 2/3) + 1/11 = -5/12 . 24/(-55)

(x + 2/3) + 1/11 = 2/11

x + 2/3 = 2/11 - 1/11

x + 2/3 = 1/11

x = 1/11 - 2/3

x = -19/33

Var a:array[1..5] of integer;

i:integer;

Begin

For i:=1 to 5 do

Begin

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

End;

Writeln('Cac so chan la ');

For i:=1 to 5 do

If a[i] mod 2 = 0 then write(a[i]:8);

Writeln;

Write('Cac so le la ');

For i:=1 to 5 do

If a[i] mod 2 <> 0 then write(a[i]:8);

Readln

End.

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

s:longint;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln

End.

Câu 5:

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

min,i,n:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

min:=a[1];

For i:=2 to n do

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

Write('So nho nhat la ',min);

Readln

End.

Câu 4:

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

s:longint;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln

End.

Câu 1

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

s:real;

i,n:integer;

Begin

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

s:=1;

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s*a[i];

End;

Write('Tich la ',s:10:2);

Readln

End.

ĐKXĐ: x ≠ 2; x ≠ -2

Phương trình tương đương:

⇔ (1 - 6x)(x + 2) + (9x + 4)(x + 2) = x(3x - 2) + 1

⇔ x + 2 - 6x² - 12x + 9x² + 18x + 4x + 8 = 3x² - 2x + 1

⇔ 6x² + 9x² - 3x² + x - 12x + 18x + 4x + 2x = 1 - 2 - 8

⇔ 13x = -9

⇔ x = -9/13 (nhận)

Vậy S = {-9/13}

3,27 + 3,27 + ... + 3,27 (10 số hạng)

= 3,27 × 10

= 32,7