program bai_giai;
uses crt;
var n,i,s:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]>0)then inc(s,a[i]);
        end;
  write('tong cac chu so khac 0 trong day so tren la:',s);
 readln
end.

#include<stdio.h>#include<math.h>#define MAX 100 void nhap (int a[], int &n){  //sử dụng vòng lặp do..while() để yêu cầu người dùng nhập vào số phần tử của mảng    do    {        printf("\nNhập vào số phần tử: ");        scanf("%d", &n);        //nếu số phần tử không hợp lệ thì in ra màn hình        if(n <= 0 || n > MAX)        {            printf("\nSố phần tử không hợp lệ");        }    }while(n <= 0 || n > MAX);    //dùng vòng lặp for để nhập các giá trị cho mảng    for(int i = 0; i < n; i++)    {        printf("\nNhập a[%d]: ", i);        scanf("%f", &a[i]);    }}/* hàm xuất các giá trị trong mảng ra màn hình */void xuat(int a[], int n){    for(int i = 0; i < n; i++)    {        printf("%8.3f", a[i]);    }}int main(){    int n;    int a[MAX];    nhap(a, n);    xuat(a, n);}