Viết các chương trình sau: Nhập vào một dãy gồm n phần tử, n nhập từ bàn phím
a) tính tổng các số âm trong dãy
b)tính tổng các số chia hết cho 2 trong dãy
Viết các chương trình sau: Nhập vào một dãy gồm n phần tử, n nhập từ bàn phím a) tính tổng các số âm trong dãy b)tính tổng các số chia hết cho 2 trong
By Katherine
uses crt;
var n,i,s,t:longint;a:array[1..1000000]of longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
if a[i]<0 then inc(s,a[i]);
if a[i] mod 2=0 then inc(t,a[i]);
end;
writeln(‘Tong cac so am: ‘,s);
write(‘Tong cac so chia het cho 2: ‘,t);
readln;
end.
program phuongt;
uses crt;
var A: array[1..500] of integer;
n, s, k, i: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0;
k:=0;
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
if A[i]<0 then s:=s+A[i];
if A[i] mod 2 = 0 then k:=k+A[i];
end;
writeln(‘Tong cac so am: ‘, s);
write(‘Tong cac so chia het cho 2: ‘, k);
readln
end.