Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử dương trong mảng
0 bình luận về “Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử dương trong mảng”
Program phan_tu_duong;
Uses crt;
Var
I,n:integer
Begin
Clrscr;
Write(‘hay nhap do dai cua day so,N=’);
Readln(n);
Writeln(‘nhap cac phan tu cua day so:’);
For i:=1 to n do
Begin
Write(‘a[i]=’)
End;
For i: 2 to n do
Writeln(phan tu duong la=’,);
Readln;
End.
Program phan_tu_duong;
Uses crt;
Var
I,n:integer
Begin
Clrscr;
Write(‘hay nhap do dai cua day so,N=’);
Readln(n);
Writeln(‘nhap cac phan tu cua day so:’);
For i:=1 to n do
Begin
Write(‘a[i]=’)
End;
For i: 2 to n do
Writeln(phan tu duong la=’,);
Readln;
End.
program dem_duong;
uses crt;
var A:array[1..1000] of integer;
n,i,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i]>0 then d:=d+1;
end;
write(‘So luong so duong la: ‘,d);
readln;
end.