Viết thuật toán nhập N và dãy số từ a1 => aN, tính tổng các số chẵn có trong dãy. Giúp e vs ạ, e ngủ nhất phần này???????
2 câu trả lời
uses crt;
var a: array [1..100] of integer;
n, i, tsc, tsl: integer
begin
clrscr;
write('So phan tu cua mang la: '); readln(n);
while n<1 do begin
write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);
end;
for i:=1 to n do begin
write('So thu ',i,' la: '); readln(a[i]);
end;
tsc:=0;
tsl:=0;
for i:=1 to n do
if a[i] mod 2 =0 then tsc:=tsc+a[i]
else tsl:=tsl+a[i];
writeln('tong cac so chan la: ',tsc);
write('tong so cac so le la: ',tsl);
readln;
end.
uses crt;
var i,n,tong:integer;
a: array[1..1000] of ineteger;
begin
clrscr;
writeln('Nhap do dai mang ( n>=1) : ');readln(n);
while n<1 then
begin
write('Nhap lai: ');
readln(n)
end;
writeln('Nhap ',n,' phan tu cua mang:');
tong:=0;
For i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
If a[i] mod 2 = 0 then tong:=tong+a[i]
end;
writeln('Tong cac phan tu chan trong mang vua nhap la: ',tong);
readln;
end.