Mình mai thi học kì, mấy bạn làm chi tiết giúp mình với ????????
Viết chương trình nhập từ bàn phím số nguyên dương N(N<=100) và dãy số AN có trị tuyệt đối nhỏ hơn 1000.Đưa ra mà hình các thông tin sau:
a) Đếm số phần tử lẻ
b) Tổng giá trị các phần tử lẻ.
Giúp mình với mọi người ????
Program BTT;
Uses crt;
Var A: array[1..100] of integer;
n,i,d: byte;
s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0; d:=0;
For i:=1 to n do
Begin
Write(‘Nhap A[‘,i,’] = ‘); Readln(A[i]);
If abs(A[i])>=1000 then
Repeat
Write(‘Nhap sai! Yeu cau nhap lai A[‘,i,’] = ‘);
Readln(A[i]);
Until abs(A[i])<1000;
If A[i] mod 2 = 1 then
Begin
inc(d);
s:=s+A[i];
End;
End;
Writeln(‘Co ‘,d,’ phan tu le’);
Write(‘Tong cac phan tu le: ‘,s);
Readln
End.
program hotboy;
uses crt;
var a:array[1..100] of integer;
le,s,i,n : Integer;
begin
Clrscr;
s:=0; le:=0;
write(‘nhap so nguyen duong n:’);
Readln(n);
for i:= 1 to n do
begin
Write(‘A[‘,i,’]’);
readln(a[i]);
end;
for i:=1 to n do
begin
If a[i] mod 2 = 1 then
begin
le:=le+1 ;
S:= S+a[i] ;
end;
end;
Writeln(‘co so phan tu le la= ‘,le);
Writeln(‘Tong so cacphan tu le la= ‘,s );
Readln
End.