viết chương trình tính tổng s=1+3+5+...+n bằng while...do 2 cho dãy số a1,a2,a3,..an vt chuoeng trình tính tổng các số dương trong dãy Mik cần gấp cực

1)

program ct;

uses crt;

var i,n:integer;

      s:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

     s:=0; i:=1;

   while i<=n do

     begin

       i:=i+1;

       if i mod 2<>0 then s:=s+i;

     end;

   writeln('Tong s la: ',s);

readln;

end.

2)

program ct;

uses crt;

var A:array[1..1000];

      i,n:integer;

      S:longint;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap A[',i,']: '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     if A[i] mod 2=0 then S:=S+A[i];

   writeln('Tong cac so duong la: ',S);

readln;

end.

Học tốt!

1

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,i=1,total=0;
    cin>>n;
    while(i<=n){
        if(i%2==1){
            total+=i;
        }
        i++;
    }
    cout<<total;
    //samon247
    return 0;
}

2

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,total=0;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]>0){
            total+=arr[i];
        }
    }
    cout<<total;
    //samon247
    return 0;
}