6, 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 đếm xem có bao nhiêu 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}
số các số dương=6
7,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 đếm xem có bao nhiêu số âm 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}
số các số âm=4
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 if a[i] > 0 then t:=t+1;
write(‘cac so duong 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] < 0 then t:=t+1;
write(‘cac so am cua day la:’, t);
readln
end.
6.
program ct;
uses crt;
var i,n,d: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;
d:=0;
for i:=1 to n do
if A[i]>0 then d:=d+1;
writeln(‘cac so duong la:’,d);
readln
end.
7.
program ct;
uses crt;
var i,n,d: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;
d:=0;
for i:=1 to n do
if A[i]<0 then d:=d+1;
writeln(‘cac so am la:’,d);
readln
end.