Viết chương trình nhập vào mảng một chiều A khoảng 50 phần tử. a/ Đếm số phần tử dương trong dãy b/Tính các số âm trong dãy c/In mảng chỉ gồm các số chẵn (chia hết cho 2).

Program NN;
Uses crt;
Var A: array[1..50] of longint;
    n,i,s,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] > 0 then inc(d);
                If A[i] < 0 then s:=s+A[i];
        End;
        Writeln(d);
        Writeln(s);
        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(A[i],' ');
        Readln
End.

 đáp án

• var 

  a:array[1..100] of integer;

  i,n:integer;

  sa,sd:longint;

  begin

  write('nhap vao n:');readln(n);

  for i:=1 to n do

  write('nhap vao phan tu a[',i,']:');

  readln(a[i]);

  sa:=0; sd:=0;

  for i:=1 to n do

  if a[i] > 0 then sd:=sd+a[i] 

  else sa:=sa+a[i];

  writeln('tong am la',sa);

  writeln('tong duong la',sd);

  readln

  end.