type mang=array[1..100] of byte;
var a:mang;
n,i:byte;
procedure nhap;
begin
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
end;
procedure tinh;
var s:longint;
begin s:=0;
for i:=1 to n do
if a[i] mod 2<>0 then s:=s+a[i];
write('tong cac so le la:',s);
end;
begin
write('nhap n:');readln(n);
nhap;
tinh;
readln;
end.
cho A và dãy số a1,a2.... an. viết thuật toán:
a) tính tổng các số chẵn có trong dãy.
b) tính tổng các số lẻ trong dãy
Cho A và dãy số a1,a2.... an. viết thuật toán:
a) Tính tổng các số chẵn có trong dãy.
b) Tính tổng các số lẻ trong dãy
Viết thuật toán tính tổng các giá trị dương trong dãy số cho trước A = { a1, a2,…,an }
- Xác định input/output
- thuật toán
- ví dụ minh hoạ
hộ mình zới ạaa
Hãy mô tả thuật toán tính tổng các số dương trong dãy số A = {a1, a2,..., an} cho trước.
Mô tả thuật toán tính tổng các phần tử chẵn (lẻ) trong dãy số A= {a1;.....an}
Giúp mik vs!!!! 
Hãy mô tả thuật toán giải bài toán tính tổng các phần tử của dãy số A= {a1, a2,..., an} cho trước.
viết thuật toán tính tổng các phần tử dương của dãy n số thực được lần lượt nhập vào máy tính
: Hãy mô tả thuật toán cho các bài toán sau:
a) Tính tổng các phần tử chia hết cho 3 và chia hết cho 9 trong dãy gồm n số a1, a2, a3, …, an.
b) Tính tổng các ước số của một số nguyên N.
c) Hoán đổi giá trị của hai số nguyên M và N.
d) Tìm ước chung lớn nhất của hai số X và Y