Tin học [Tin học 10] Viết chương trình phần mảng

[lias]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mình với ạ (Mình đang học phần Mảng)
1 . Viết chương trình nhập vào mảng N số nguyên ( N< 100)
1 .Đếm số phần tử chẵn trong mảng
2 . Tính tổng các số lẻ trong mảng
3. Tính tổng các số âm
4. Đếm các số chia hết cho 3
5. Đếm các số chia hết cho 5

 

[Trâm Nguyễn Thị Ngọc]

Giúp mình với ạ (Mình đang học phần Mảng)
1 . Viết chương trình nhập vào mảng N số nguyên ( N< 100)
1 .Đếm số phần tử chẵn trong mảng
2 . Tính tổng các số lẻ trong mảng
3. Tính tổng các số âm
4. Đếm các số chia hết cho 3
5. Đếm các số chia hết cho 5

Var
    a:array[1..100] of integer; ta,tl,d1,d2,d3:integer;
Begin
    readln(n);
    For i:=1 to n do
       Begin
           readln(a[i]);
           if a[i] mod 2=0 then d1:=d1+1 else tl:=tl+a[i];
           If a[i]<0 then ta:=ta+a[i];
           If a[i] mod 3=0 then d2:=d2+1;
           If a[i] mod 5=0 then d3:=d3+1;
      end;
    In kết quả;
End.

 

[lias]

Bạn ơi bạn làm theo cách c++ dc k ạ , cách bạn làm mình chưa hc đến