cau3)

program bai_tap;
uses crt;
var n,i:byte;
b,chen:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
write('nhap gia tri can chen: ');
readln(chen);
write('nhap vi tri can chen: ');
readln(b);
for i:= n+1 downto b+1 do
a[i]:=a[i-1];
a[b]:=chen;
for i:= 1 to n+1 do
write(a[i]:4);
readln

end.

xóa cũng tương tụ kiểu như vậy

cau2)

program bai_tap;
uses crt;
var n,i:byte;
a:array[1..100] of real;
max,min::real;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
max:=a[1];min:=a[1];
for i:= 2 to n do
begin
if max < a[i] then max:=a[i];
if min > a[i] then min := a[i];
end;
write('gia tri max la: ',max:4:2,' gia tri min la: ',min:4:2);
readln
end;

Lời giải:

Theo đề bài, số chẵn nhỏ nhất có 4  chữ số chia cho 369 thì có số dư là số lớn nhất nên số dư đó là: 369 - 1 = 368

Số cần tìm là:

369 x 2 + 368 = 1106

=> Số cần tìm là 1106

Tick mik nha

lỗi chỗ d:= 3

viết đúng là if d = 3 then write('dbang3')

=3                            tích mình mình tích cho

 Số đó là .....8999......

tick mình nha bạn thân

Hiệu hai số là 26 + 21 = 47

Số lớn là (713 + 47) : 2 = 380

Số bé là 713 - 380 = 333

P nhỏ nhất khi x²+3x+10 lớn nhất

Ta có: \(x^2+3x+10=x^2+2.x.\frac{3}{2}+\frac{9}{4}+\frac{31}{4}=\left(x+\frac{3}{2}\right)^2+\frac{31}{4}\)không có GTLN

=> P không có GTNN

P lớn nhất khi x²+3x+10 nhỏ nhất

<=> \(\left(x+\frac{3}{2}\right)^2+\frac{31}{4}\text{ nhỏ nhất}\left(=\frac{31}{4}\right)\)

<=> x + 3/2 = 0

<=> x = -3/2

=> GTLN của P là -20/31 <=> x=-3/2

program bai_tap;
uses crt;
var n,i,dem1,dem2,s1,s2:byte;
tb1,tb2:real;
begin
clrscr;
write('nhap n: ');{nhap gia tri cua n VD: n= 10}
readln(n);
for i:= 1 to n do
if i mod 2 = 0 then {so chan la so chia het cho 2 hay chia 2 du 0}
begin
dem1:=dem1+1; {tinh xem co bao nhieu so mod 2 = 0}
s1:=s1+i; {tinh tong cac so chan}
end
else { neu i mod 2 khac 0 thi...(so le)}
begin
dem2:=dem2+1;
s2:=s2+i;
end;
tb1:= s1/dem1; {tinh trung binh cong}
tb2:= s2/dem2;
writeln('trung binh cong cac so chan: ',tb1:4:2); {xuat ra trung binh cong}
writeln('trung binh cong cac so le: ',tb2:4:2);
readln
end.

program bai_tap;

uses crt;

var i:byte;

begin

clrscr;

for i:= 1 to 10 do

writeln('em hua se no luc het minh ');

readln

end.