Viết chương trình Pascal về mảng một chiều tính tổng các phần tử đếm các số âm hoặc số dương tính tổng các số chẵn hoặc lẻ
Viết chương trình Pascal về mảng một chiều tính tổng các phần tử đếm các số âm hoặc số dương tính tổng các số chẵn hoặc lẻ
program ct;
uses crt;
var i,n,d1,d2,tongchan,tongle:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
d1:=0; d2:=0; tongchan:=0; tongle:=0;
for i:=1 to n do
begin
if A[i]>0 then d1:=d1+1;
if A[i]<0 then d2:=d2+1;
if A[i] mod 2=0 then tongchan:=tongchan+A[i] else tongle:=tongle+A[i];
end;
writeln(‘co’,d1,’ so duong’);
writeln(‘co’,d2,’ so am’);
writeln(‘tong so chan la:’,tongchan);
writeln(‘tong so le la:’,tongle);
readln
end.
program oken;
uses crt;
var a: array [1..1000] of integer;
n,i,dem1,dem2,sle,schan: longint;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘); readln(n);
dem1:=0; dem2:=0; sle:=0; schan:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]: ‘); readln(a[i]);
if (a[i]>=0) then
dem1:=dem1+1
else
dem2:=dem2+1;
if (a[i] mod 2=1) then
sle:=sle+a[i]
else
schan:=schan+a[i];
end;
writeln(‘Cac phan tu co gia tri am: ‘,dem2);
writeln(‘Cac phan tu co gia tri la duong: ‘,dem1);
writeln(‘Tong cac phan tu co gia tri le: ‘,sle);
writeln(‘Tong cac phan tu co gia tri chan: ‘,schan);
readln;
end.