Question

viết chương trình nhập 1dãy số nguyên sau đó in ra màn hình các số lẻ và tính tổng của chúng

Answer 1

program sole;

uses crt;

var a:array[1..100] of integer; i,n,s:integer;

begin

clrscr; s:=0;

write('nhap do dai cua mang');readln(n);

for i:=1 to n do begin writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 <>0 then begin writeln('cac so le trong day',a[i],' ');

s:= s+ a[i]; end; end;

readln;

end.