Viết chương trình đếm số phần tử dương có trong mảng nguyên A gồm N phần tử được nhập từ bàn phím

0 bình luận về “Viết chương trình đếm số phần tử dương có trong mảng nguyên A gồm N phần tử được nhập từ bàn phím”

1. Program bai3;Uses crt;Var  A : Array [1..100] of integer;      N,i, dem : integer;
        Begin  Write(‘nhap N’);  Readln(N);  For i:= 1 to N do     Begin         Write(‘Nhap phan tu thu ‘,i);         Readln(A[i]);     end;   dem := 0;  For i := 1 to N do 
        If A[i] > 0 then Dem := Dem + 1 ;  
     Write(‘ So phan tu duong la: ‘, Dem ;  Readln

   Theo mk thì lm vậy, htr mk có nghe cô công nghệ thông tin của bọn mk giảng qua 

   Chúc bạn hok tốt

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var A:array[1..100] of integer;

   s,n : longint;

   Begin

   Clrscr;

   s:=0;

   Write(‘nhap so n’);

   For i:=1 to n do

   Write(‘A[‘,i,]’);

   Readln(A[i]);

   For i:=1 to n do

   If (A[i] >0) then inc(s);

   Write(‘so phan tu duong la’,S);

   Readln

   End.

   Bình luận