Question

Viết ct pascal nhập 1 dãy số nguyên gồm n phần tử .in ra màn hình tổng các số lẻ trong mảng ..... Mong Mn Giúp E Cho E Thi Hk ạ

Answer 1

Answer 2

program chuong_trinh;

uses crt;

var n,i,tong:integer;

a: array[1..1000] of integer;

begin

clrscr;

writeln('Nhap so phan tu cua day: ');readln(n);

writeln('Nhap ',n,' phan tu cua day: ');

for i:= 1 to n do readln(a[i]);

tong:=0;

for i:= 1 to n do if a[i] mod 2 = 1 then tong:=tong+a[i];

writeln('Tong cac so le trong mang la: ',tong);

readln

end.