Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Bài 1.
Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)
Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)
Bước 3. \(i\leftarrow i+1\)
Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.
4.2 \(a_i\ge0\) thì quay lại bước 3
4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3
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.
var
n,k,d,i,s:integer;
begin
write(' nhap n: ');
readln(n);
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:= 1 to n do
if k = a[i] then d:=d+1;
writeln(k,' xuat hien ',d,' lan trong mang ');
for i:= 1 to n do
if a[i] mod 2 = 0 then s:= s+a[i];
write(' tong so chan trong mang la :',s);
readln;
end.
CHÚC BẠN HỌC TỐT :D
ôi chết dưới phần nhập n bạn thêm :
write(' nhap k: ');
readln(k);
CHO mình nha
a, mình nghĩ tổng cx bằng n vì từ đầu ta đã gán s:=0
b, câu này mik k biết 
bạn thông cảm nha 
Đáp án A