1. Tính tổng các số lẻ của dãy n số nguyên. 2. Tính tổng của dãy số gồm 200 phân tử thực. (Dùng kiểu mảng)
2 câu trả lời
1. var n,i,le:longint;
a: array [1..1000] of longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if not a[i] mod 2 = 0 then inc(le);
write('Tong so le la: ',le);
readln;
end.
2. var a: array [1..200] of real;
s:real;
i:longint
begin
for i:=1 to 200
begin
write('a[',i,'] = ');
read(a[i]);
s:=s+a[i]
end;
write('Tong la: ',s);
end.
Tính tổng các số nguyên tố trong mảng Function LaSoNT( Var N:Integer) :Integer; Var i:Integer; Begin For i:=2 to N-1do If(N mod i = 0) then return 0 Else return 1; End;
Câu hỏi trong lớp
Xem thêm