Bài 1

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

i,n:integer;

max,min:real;

Begin

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

For i:=1 to n do

Begin

Write('Nhap chieu cao ban thu ',i,' = ');readln(a[i]);

End;

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('Ban cao nhat la ',max:10:2);

write('Ban thap nhat la ',min:10:2);

Readln

End.

thanks🥰🥰

Thứ tự sắp xếp

12. End.

8. End;

11. Readln;

2. Begin

7. Readln(f,i);

9. Close(f);

1. Var f:text; i: byte;

10. writeln(i);

3. Assign(f,'D:/so.txt');

4. Reset(f);

5. While not(eof(f)) Do

6. Begin

Bạn bổ sung đề đầy đủ nhé

``python
def UCLN(a, b):
if b == 0:
return a
else:
return UCLN(b, a % b)
a = int(input("Nhập số nguyên a: "))
b = int(input("Nhập số nguyên b: "))
benn = (a * b) // UCLN(a, b)
print("BCNN của", a, "và", b, "là:", bann)

Dạ chỉ em viết dạng chương trình lớp 8 đc k ạ, tại em chx hc python ạ

Câu 1:
Để tạo cây thư mục
D:\THCS\KHOI8\TIN.TXT bằng chương trình NC, ta cần thực hiện các bước sau:
1. Mở Command Prompt (ấn tổ hợp phím Win + R, gõ "cmd" và ấn Enter).
2. Gõ lệnh "md D:\THCS\KHOI8" để tạo thư mục THCS trong ổ đĩa D.
3. Gõ lệnh "cd D:\THCS\KHOI8" để di chuyển đến thư mục KHOI8.
4. Gõ lệnh "echo Hello World > TIN.TXT" để tạo tệp tin TIN.TXT và viết nội dung "Hello World" vào tệp tin đó.

Câu 2:
Để đổi tên tệp TIN.TXT thành tên LOP.DOC trong cây thư mục D:\THCS\KHOI8\TIN.TXT bằng chương trình Windows Explorer, ta cần thực hiện các bước sau:
1. Mo Windows Explorer.
2. Tìm đến thư mục D:\THCS\KHOI8.
3. Chuột phải vào tệp tin TIN.TXT và chọn "Rename".
4. Nhập tên mới là LOP.DOC và ấn Enter để lưu thay đổi.

mình cảm ơn bạn rất nhiều

Program HOC24;

var i,n,max: integer;

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

begin

write('Nhap 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];

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

readln

end.

Input: chiều dài và chiều rộng

Output: Diện tích hình chữ nhật