Viết chương trình và nhập vào một mảng A gồm N phần tử (N nhỏ hơn hoặc bằng 50)
– nhập và hiển thị mảng A ra màn hình
– tính tổng các phần tử là số nguyên dương
– tính tổng các phần tử là số lẻ của mảng A
Viết chương trình và nhập vào một mảng A gồm N phần tử (N nhỏ hơn hoặc bằng 50)
– nhập và hiển thị mảng A ra màn hình
– tính tổng các phần tử là số nguyên dương
– tính tổng các phần tử là số lẻ của mảng A
program hip_hop_never_die;
uses crt;
var a,n,i,b,c : integer;
e: array[1..50] of real;
begin
b:=0; c:=0
writeln(‘nhap tong so cac phan tu: ‘); readln(n)
for i:= 1 to n do
begin
write(‘nhap so thu ‘,i); readln( e[i] );
end;
for i:= 1 to n do
begin
write(‘ so thu ‘, i,’ la : ‘,e[i]);
end;
for i:= 1 to n do
begin
if e[i] >= 0 then b:=b+e[i] ;
writeln(‘tong cac so nguyen duong la: ‘,b);
end;
for i:= 1 to n do
begin
if e[i] mod 2 =1 then c:=c+1;
writeln(‘tong cac so le la: ‘,b);
end;
readln;
end.
program Min;
uses crt;
var A:array[1..50] of longint;
i,n: integer;
t1,t2: longint;
begin
clrscr;
t1:=0; t2:=0;
repeat
begin
write(‘Nhap N: ‘);
readln(n);
end;
until n<=50;
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to n do
begin
write(A[i]:4);
if A[i]>=0 then t1:=t1+A[i];
if A[i] mod 2 <> 0 then t2:=t2+A[i];
end;
writeln(”);
writeln(‘Tong cac phan tu la so nguyen duong: ‘,t1);
writeln(‘Tong cac phan tu la so le: ‘,t2);
readln
end.