1, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím)
VD: N=10 A={5,6,15,24,16,17,3,7,12,21}
Tổng các số=126
2, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số chẵn trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím)
VD: N=10 A={5,6,15,24,16,17,3,7,12,21}
Tổng các số chẵn=58
3, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số lẻ trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím)
VD: N=10 A={5,6,15,24,16,17,3,7,12,21}
Tổng các số lẻ=68
4, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số dương trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím)
VD: N=10 A={5,-6,15,-24,16,-17,3,7,-12,21}
Tổng các số dương=67
giúp vs ah!!!
mk đg cần gấp, camon!!!
1) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write(‘Nhap n:’); readln(n);
for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
end;
for i:=1 to n do t:=t+a[i];
write(‘Tong cua day la :’, t);
readln
end.
2) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write(‘Nhap n:’); readln(n);
for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i];
write(‘Tong cac so chan cua day :’, t);
readln
end.
3) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write(‘Nhap n:’); readln(n);
for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 = 1 then t:=t+a[i];
write(‘Tong cac so le cua day :’, t);
readln
end.
4) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write(‘Nhap n:’); readln(n);
for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
end;
for i:=1 to n do if a[i] > 0 then t:=t+a[i];
write(‘Tong cac so duong cua day :’, t);
readln
end.
1.
program ct;
uses crt;
var i,n,s: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;
s:=0;
for i:=1 to n do
s:=s+A[i];
writeln(‘tong la:’,s);
readln
end.
2.
program ct;
uses crt;
var i,n,s: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;
s:=0;
for i:=1 to n do
if A[i] mod 2=0 then s:=s+A[i];
writeln(‘tong cac so chan la:’,s);
readln
end.
3.
program ct;
uses crt;
var i,n,s: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;
s:=0;
for i:=1 to n do
if A[i] mod 2=1 then s:=s+A[i];
writeln(‘tong cac so le la:’,s);
readln
end.
4.
program ct;
uses crt;
var i,n,s: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;
s:=0;
for i:=1 to n do
if A[i]>0 then s:=s+A[i];
writeln(‘tong cac so duong la:’,s);
readln
end.