`8)`

uses crt;
 var a : array [1..100] of longint ;
  n, i, s : longint ; 
    begin
clrscr;
  write('Nhap do dai mang: ') ;
   readln(n);
 for i := 1 to n do
         begin
        write('a[',i,']=');
        readln(a[i]);
        if (a[i] mod 10 = 0 ) and (a[i] mod 30 = 0 )
            then s := s + a[i];
         end;
 write('Day vua nhap: ');
   for i := 1 to n do write(a[i],' ');
  writeln;
 writeln('Tong cac so chia het cho 10 va 30: ',s);
    end.
`9)`

uses crt;
 var a : array [1..100] of longint ;
  n, i : longint ; 
    begin
clrscr;
  write('-- Nhap do dai mang: ') ;
   readln(n);
 for i := 1 to n do
         begin
        write('a[',i,']=');
        readln(a[i]);
         end;
 write('---- Day vua nhap: ');
   for i := 1 to n do write(a[i],' ');
    writeln;
 write('---- So am co trong day la: ');
   for i := 1 to n do 
        if a[i] < 0 then write(a[i],' ');
    writeln;
 write('---- So duong co trong day la: ');
   for i := 1 to n do 
        if a[i] > 0 then write(a[i],' ');
    writeln;
    end.
  

#include <bits/bits/stdc++.h>
using namespace std;
int main() {
    int n;
    cin >> n;
    int a[n];
    for (int i=0; i<n; i++) cin >> a[i];
    for (int i=0; i<n; i++) cout << a[i] << " ";
    int s=0;
    for (int i=0; i<n; i++) if (a[i]%10==0 && a[i]%30==0) s+=a[i];
    cout << endl << s;
}

_____________

/*Câu 9. Viết chương trình nhập độ dài của một dãy số gồm N phần tử. Thực hiện các yêu cầu sau:
+ In ra màn hình dãy số vừa nhập
+ In ra màn hình các số Âm có trong dãy số.
+ In ra màn hình các số dương có trong dãy số.*/
#include <bits/stdc++.h>
using namespace std;
int main() {
    int n;
    cin >> n;
    int a[n];
    for (int i=0; i<n; i++) cin >> a[i];
    for (int i=0; i<n; i++) cout << a[i] << " ";
    cout << endl;
    for (int i=0; i<n; i++) if (a[i]<0) cout  << a[i] " ";
    cout << endl;
    for (int i=0; i<n; i++) if (a[i]>0) cout  << a[i] " ";
}