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

i,max,d:integer;

Begin

For i:=1 to 30 do

Begin

Repeat

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

Until a[i]<=255;

End;

max:=a[1];

d:=1;

For i:=2 to 30 do

If a[i] > max then

Begin

max:=a[i];

d:=i;

End;

Write('Phan tu lon nhat la ',max,' tai vi tri ',i);

Readln

End.

program tinh_tong_chia_het_cho_6;

uses crt;

var

     n, i, tong: integer;

begin

     write('Nhap so N: ');

     readln(n);

     tong := 0;

     for i := 1 to n do

     begin

          if i mod 6 = 0 then

          begin

               tong := tong + i;

          end;

     end;

     writeln('Tong cac so chia het cho 6 la: ', tong);

     readln;

end.

def is_coprime(a, b):
    """Hàm ktra a và b có phải là nguyên tố cùng nhau"""
    while b:
        a, b = b, a % b
    return a == 1

n = int(input("Nhập stn n: "))
count = 0

for i in range(1, n+1):
    if is_coprime(i, n):
        count += 1

print(f"Số lượng số nguyên tố cùng nhau với n là {count}.")

program Tong;
var
  n: integer;
  i: integer;
  sum: real;
begin
  write('Nhap so nguyen duong n (chia het cho 5): ');
  readln(n);
 
  sum := 0;
  for i := 1 to n do
  begin
    if i mod 5 = 1 then
      sum := sum + 1/i;
  end;
  
  writeln('Tong A la: ', sum);
  readln;
end.

Ai giúp mik với ak ! ❤❤

yutube có nha

B. hơi sai chứ ko hoàn toàn sai :0