b: 

Input: a,b

Output: UCLN(a,b)

a)Xác định số học sinh trong lớp cùng mang họ trần.

- Input: Họ tên học sinh .

- Output: Số học sinh mang họ trần.

b) Tính tổng của các phần tử lớn hơn 0 trong dãy n số cho trước.

- Input: Các phần tử lớn hơn 0 trong dãy n.

- Output: Tổng của các phần tử trong dãy n.

c) Tìm số các số có giá trị nhỏ nhất trong n số đã cho.

- Input: Các số trong dãy n số đã cho.

- Output: Số có trá trị nhỏ nhất trong dãy n số

INPUT: Danh sách số học sinh trong lớp.

OUTPUT: Số học sinh trong lớp mang họ Trần.

b) INPUT: Dãy gồm n số.

OUTPUT: Tổng các phần tử lớn hơn 0.

c) INPUT: Cho n số.

OUTPUT: Số các số có giá trị nhỏ nhất trong n số.

HELP

 cứu ae ơi

Lời giải:

program hotrotinhoc;

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

i,n: integer;

function dem(x: integer): integer;

var d,j: integer;

begin

d:=0;

for j:=1 to x do if x mod j=0 then inc(d);

dem:=d;

end;

begin

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

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=0;

for i:=1 to n do

if u(a[i])>u(max) then max:=a[i];

write(max);

readln

end.

Cảm ơn bạn nhưng bạn có thể viết dưới dạng thuật toán theo từng bước được không ( cảm ơn trước 1 lần nữa )

Input: N và dãy số a1, a2, ..., aN

Output: Các số nguyên tố có trong dãy đã cho

Thuật toán:

Bước 1: Nhập số nguyên dương N

Bước 2: Nhập dãy N số nguyên dương

Bước 3: Với mỗi số ai trong dãy, thực hiện:

- Nếu ai<2 thì không phải số nguyên tố

- Ngược lại:

+ Đặt biến dem = 0

+ Duyệt các số từ 1 đến ai

+ Nếu ai chia hết cho số đang xét thì tăng dem lên 1

- Sau khi duyệt xong: Nếu dem = 2 thì ai là số nguyên tố

Bước 4: In ra các số nguyên tố tìm được

Bước 5: Kết thúc thuật toán

1

*Xác định bài toán

-input: a,b

-output: ucln(a,b);

*Xây dựng thuật toán

-Bước 1: nhập a,b

-Bước 2: nếu a>b thì a:=a-b

-Bước 3: ngược lại thì b:=b-a

-Bước 4: Nếu a<>b thì quay lại bước 2

-Bước 5: ucln:=a;

-Bước 6: Xuất ucln

-Bước 7: Kết thúc

2:

*Xác định bài toán

-input: a,b

-output: bcnn(a,b);

*Xây dựng thuật toán

-Bước 1: nhập a,b

-Bước 2: nếu a>b thì a:=a-b

-Bước 3: ngược lại thì b:=b-a

-Bước 4: Nếu a<>b thì quay lại bước 2

-Bước 5: ucln:=a;

-Bước 6: bcnn:=(a*b)/ucln;

-Bước 7: xuất bcnn

-Bước 8: Kết thúc

def UCLN(a, b):

      if a == 0:

            return b

      elif b == 0:

            return a

      elif a == b:

            return a

      elif a > b:

            return UCLN(a - b, b)

      else:

            return UCLN(a, b - a)