Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương

0 bình luận về “Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương”

1. Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương

   program CTNMT;

   uses crt;

   var n,i,dem: longint;

   A: array [1..1000] of longint;

   Begin

   Writeln(‘Ban hay N’); Readln(n);

   for i:=1 to n do

   begin

   Writeln(‘Nhap so thu ‘,i); Readln(a[i]);

   end;

   Writeln(‘In ra mang:’);

   for i:1 to n do Write(a[i]:5);

   writeln;

   Writeln(‘In ra so chan trong mang’);

   for i:= 1 to n do

   begin

   if (a[i] mod 2) = 0 then Write(a[i]:5)

   if a[i] < 0 then dem:= dem +1;

   end;

   writeln(‘so so nguyen am la: ‘,đem);

   REadln;

   Bình luận

2. var a: array[1..256] of integer;

          n, i, d: byte;

   Begin

       Write(‘n = ‘); readln(n);

       D:=0;

       For i:=1 to n do 

          Begin

              Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

              If a[i]>0 then d:=d+1;

          End;

      Write(‘co ‘, d, ‘ so duong’);

      Readln

   End.

   Bình luận