i = 6; k = 8

\(\Rightarrow\) Không có đáp án đúng

A.6;3;6

B. j = 3; s = 4

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 phan tu thu ',i,' = ');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

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

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

readln

end.

Bạn Bình nặng hơn bạn Lan:

51,6 - 43,5 = 8,1 (kg)

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

i,n,min: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;

writeln('Tong la ',s);

min:=a[1];

for i:=2 to n do

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

write('Cac so chan la ');

for i:=1 to n do

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

writeln;

write('so nho nhat la ',min);

readln

end.

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

i,n:integer;

begin

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

for i:=1 to n do

begin

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

end;

write('Cac phan tu chan trong mang la: ');

for i:=1 to n do

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

readln

end.

thiếu vòng lặp "For i:=1 to n do write(a[i]);" rồi em!

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

i,n,d:integer;

s:longint;

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];

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

end;

tbc:=s/n;

writel('Co ',d,' so chan');

write('Trung binh cong cua day so la ',tbc:10:2);

readln

end.

\(\left(x+3\right)\left(x^2-2x+2\right)\)

\(=x.x^2-x.2x+x.2+3.x^2-3.2x+3.2\)

\(=x^3-2x^2+2x+3x^2-6x+6\)

\(=x^3+x^2-4x+6\)