Cho mảng nguyên 1 chiều gồm n phần tử ( n<250) nhập từ bàn phím. a, Viết chương trình tính tổng các phần tử chẵn trong mảng b, viết chương trình tính tong các phần tử lẽ trong mảng
Cho mảng nguyên 1 chiều gồm n phần tử ( n<250) nhập từ bàn phím. a, Viết chương trình tính tổng các phần tử chẵn trong mảng b, viết chương trình tính tong các phần tử lẽ trong mảng
Tính số lẽ thì đổi dấu = thành <>
program tinh_tong_chanle;
Uses crt;
var M:array[1..250] of integer;
n,i:byte;
a,b:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
a:=0; b:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(M[i]);
if M[i] mod 2=0 then a:=a+M[i] else b:=b+M[i];
end;
writeln(‘a. Tong cac phan tu chan la: ‘,a);
writeln(‘b Tong cac phan tu le la: ‘,b);
readln;
end.