Câu 2:Cho dãy số A gồm n phần tử hãy tính tổng các số lẻ của dãy số? Giúp em với ạ e đang cần gấp e cảm ơn ạ
2 câu trả lời
uses crt;
var a:array[1..100] of longint;
n,s,i:longint;
begin
clrscr;
write('n');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('a[',i,']=');
readln(a[i]);
if a[i] mod 2<>0 then S:=s+a[i];
end;
until
i>=N;
writeln('tong le',s);
readln
end.
program bai_giai;
uses crt;
var a:array[1..1000] of longint;i,n,s:lonignt;
begin
clrscr;
write('nhap n:');readln(n);
i:=0;
for i:=1 to n do
begin
write('nhap a[',i,']=');readln(a[i]);
if(a[i] mod 2=1)then s:=s+i;
end;
write('tong cac so le trong mang la:',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
