Nhập vào mảng 1 chiều gồm N số nguyên (N<=10). In mảng a, tính tổng có phần tử <=0 có tay mảng. b, tính tổng các phần tử ở vị trí lẻ có trong mảng. c, tính trung bình các phần tử có trong mảng. d, tính tổng các phần tử chia hết 5 có trong mảng. (Giúp mình với, mình cần gấp)
Nhập vào mảng 1 chiều gồm N số nguyên (N<=10). In mảng a, tính tổng có phần tử <=0 có tay mảng. b, tính tổng các phần tử ở vị trí lẻ có trong mảng. c,
By Alice
program baigiai;
uses crt;
var A:array[1..10] of integer;
n,i:byte;
t1,t2,t3,t4:integer;
begin
clrscr;
write(‘Nhap so luong phan tu N: ‘); readln(n);
t1:=0; t2:=0; t3:=0; t4:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i]<=0 then t1:=t1+A[i];
if i mod 2=1 then t2:=t2+A[i];
t3:=t3+A[i];
if A[i] mod 5=0 then t4:=t4+A[i];
end;
writeln(‘a. Tong cac phan tu <=0 la: ‘,t1);
writeln(‘b. Tong phan tu o vi tri le la: ‘,t2);
writeln(‘c. Trung binh cong cac phan tu la: ‘,t3/n:2:2);
writeln(d. Tong cac phan tu chia het cho 5 la: ‘,t4);
readln;
end.
uses crt;
var i,n:shortint;
a:array[1..10] of integer;
ta,tl,tong,t5:integer;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
ta:=0; tl:=0; tong:=0; t5:=0;
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
if a[i]<0 then ta:=ta+a[i];
if i mod 2=1 then tl:=tl+a[i];
tong:=tong+a[i];
if a[i] mod 5=0 then t5:=t5+a[i];
end;
writeln(‘A)’,ta);
writeln(‘B)’,tl);
writeln(‘C)’,tong/n:0:3);
writeln(‘D)’,t5);
readln
END.
Chúc bạn học tốt!