Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tổng giá trị các phần tử

Question

minhuyen · Answer

program nhapmang;

Uses crt;

var a:array [1..100] of integer;

n, i: integer;

le: integer;

begin

write(‘Nhap so phan tu co trong mang: ‘);

readln(n);

for i:=1 to n do

begin

write(‘Nhap vao phan tu thu A[‘,i,’]: ‘);

readln(A[i]);

end;

le:=0;

for i:=1 to n do

begin

if (A[i] mod 2 <> 0) then

le:=le+A[i];

end;

writeln(‘Tong cac phan tu le la ‘, le);

readln;

end.

@xin ctlhn

0 bình luận về “Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tổng giá trị các phần tử”