mấy anh giúp em vài bài tập

baitap 1: Nhập một dãy số nguyên dương x1,x2,..,xn. tìm bội
số chung nhỏ nhất của


chúng , ví dụ : dãy 1 2 5 4 6 3 5 có bội chung nhỏ nhất là
60


baitap 2:viết chương trình nhập vào 1 mảng số nguyên , loại
bỏ những giá trị trùng nhau (chỉ giữ lại 1 số) mà vẫn giữ nguyên thứ tự rồi in
kết quả ra màn hình


baitap 3:Tạo ma trận X[1..10,1..10] .


- hãy lập
chương trình tạo ra 100 giá trị ngẫu nhiên nằm trong khoảng giá trị từ 1..10


- tính tổng
của tất cả phần tử nằm trên đường chéo chính


- tính tổng
bình phương các số trên hàng chẳn


- tính tổng
căn bậc 2 các số ở cột lẻ

baitap4: nhâp chuỗi st, đếm xem trog chuỗi có bao
nhiêu chữ a ko phan biệt chữ thườg hay hoa , và cho bik vị trí của các chữ a đó

var s,s1:string;
dem,l,i:byte;
begin
write('nhap vao 1 xau');
readln(s);
l:=length(s);
s1:='';
for i:=1 to l do s1:=s1+ upcase(s[i]);
dem:=0;
for i:=1 to l do
begin
if s1[i]='A' then dem:=dem+1;
writel('vitri ',i)
end;
writeln('co ',dem,' chu a');
readl
end.

thank nhiều nha a, chỉ e vài bài nữa đi

var a:array[1..100] of integer;
i,n,k:word;
begin
write('nhap so luong phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i);
readdln(a[i]);
end;
k:=1;
i:=1;
repeat
begin
if (k>=a[i]) and (k mod a[i]=0)
then i:=i+1 else
begin
k:=k+1;
i:=1;
end;
until (i=n) and (k mod a[n]=0);
writeln('bcnn la:',k)
readln
end.

buon ngu wa.ngu day.mai lam tiep

bai 1 hom qua nham 1 chut.sua rui do'

BT2

USES CRT;
VAR N,I,B,C,D:INTEGER;
A:ARRAY[0..100,0..100] OF INTEGER;
BEGIN
CLRSCR;
WRITE('SO PHAN TU MANG: ');
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE('A[',I,']= ');
READLN(A[1,I]);
END;
FOR B:=1 TO N DO
BEGIN
FOR I:=1 TO N DO
BEGIN
IF(A[1,B]=A[1,I]) THEN C:=C+1;
IF(A[1,B]=A[1,I])AND(B>I)THEN BREAK;
IF(I=N) THEN
BEGIN
A[2,D]:=A[1,B];
D:=D+1;
END;
END;
C:=0;
END;
WRITELN('DAY CAN TIM: ');
FOR I:=0 TO D-1 DO WRITELN(A[2,I]:4);
READLN;
END.



EM VUA MOI HOC MANG NEN CO THE CODE HOI DO, MONG CAC BAC THONG CAM

cau lenh break la gi vay?

BREAK LÀ CÂU LỆNH DÙNG ĐỂ NHẢY KHỎI VÒNG LẬP ĐÓ BẠN

USES CRT;
VAR A:ARRAY[1..10,1..10] OF INTEGER;
I,J,TONG:INTEGER;
TONG1:REAL;
BEGIN
CLRSCR;
RANDOMIZE;
{TAO 100 GIA TRI NGAU NHIEN}
FOR I:=1 TO 10 DO
FOR J:=1 TO 10 DO A[I,J]:=RANDOM(11);
WRITELN('MA TRAN: ');
FOR I:=1 TO 10 DO
BEGIN
FOR J:=1 TO 10 DO WRITE(A[I,J]:4);
WRITELN;
END;
WRITELN;
WRITELN('CAC PHAN TU TREN DUONG CHEO CHINH: ');
FOR I:=1 TO 10 DO
FOR J:=1 TO 10 DO IF(I=J) THEN WRITE(A[I,J]:4);
{TONG CAC PHAN TU NAM TREN DUONG CHEO CHINH}
WRITELN;
J:=2;
TONG:=A[1,1];
FOR I:=2 TO 10 DO
WHILE J<=10 DO
BEGIN
TONG:=A[I,J]+TONG;
J:=J+1;
BREAK;
END;
WRITELN('TONG: ',TONG);
{TONG BINH PHUONG CAC SO TREN HANG CHAN}
I:=2;
TONG:=0;
WHILE I<=10 DO
BEGIN
FOR J:=1 TO 10 DO TONG:=TONG+SQR(A[I,J]);
I:=I+2;
END;
WRITELN('TONG BINH PHUONG CAC SO TREN HANG CHAN: ',TONG);
{CAN BAC HAI CAC SO O COT LE}
J:=1;
WHILE J<=9 DO
BEGIN
FOR I:=1 TO 10 DO TONG1:=TONG1+SQRT(A[I,J]);
J:=J+2;
END;
WRITELN('TONG CAN BAC 2 CAC SO O COT LE: ',TONG1:0:6);
READLN;
END.



HOI DAI NHI