50+1=51 minh dua ti tho

vi 0=0²

1=1²

4=2²

....

2500=50²

=> so phan tu la 51

\(a,D=\left\{\chi\inℕ/\chi\le20\right\}\)

b, tập hợp D : 21 phần tử

d,\(E=\left\{0;2;4;6;8;10;12;14;16;18;20\right\}\)

làm bừa thui,ai tích mình mình tích lại

Số số hạng là : 

Có số cặp là :

50 : 2 = 25 ( cặp )

Mỗi cặp có giá trị là :

99 - 97 = 2 

Tổng dãy trên là :

25 x 2 = 50

Đáp số : 50

Vì tập hợp F này là tập hợp của 100 số đầu tiên thuộc N* (từ 1 đến 100)

Theo công thức tính số số hạng thì số số hạng ở trong tập hợp F là:

(100-1):1+1=100 (thỏa mãn đề bài)

 tách ra từng câu hỏi đi bro

Câu 1: 

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

2:

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=1;

for i:=1 to n do 

  t:=t*a[i];

writeln(t);

readln;

end.

program XuLyDaySo;

var
  N, i, soNguyen, tong, tongLe, max, min, demMax: integer;

begin
  // Nhập số lượng phần tử N
  write('Nhap so luong phan tu N: ');
  readln(N);

  // Khởi tạo các biến
  tong := 0;
  tongLe := 0;
  demMax := 0;

  // Nhập dãy số và thực hiện các phép toán
  for i := 1 to N do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(soNguyen);

    // a) Tính tổng các phần tử trong dãy
    tong := tong + soNguyen;

    // b) Tính tổng các phần tử lẻ trong dãy
    if soNguyen mod 2 <> 0 then
      tongLe := tongLe + soNguyen;

    // c) Tìm phần tử lớn nhất, bé nhất trong dãy
    if i = 1 then
    begin
      max := soNguyen;
      min := soNguyen;
    end
    else
    begin
      if soNguyen > max then
        max := soNguyen;
      if soNguyen < min then
        min := soNguyen;
    end;

    // d) Đếm số lượng phần tử có giá trị lớn nhất
    if soNguyen = max then
      demMax := demMax + 1;
  end;

  // In kết quả
  writeln('a) Tong cac phan tu cua day: ', tong);
  writeln('b) Tong cac phan tu le cua day: ', tongLe);
  writeln('c) Phan tu lon nhat trong day: ', max);
  writeln('   Phan tu nho nhat trong day: ', min);
  writeln('d) So luong phan tu co gia tri lon nhat: ', demMax);

  readln;
end.

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t1,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

t1=0;

for (i=1; i<=n; i++)

{

cin>>x;

t+=x;

if (x>0)

{

dem++;

t1+=x;

}
}

cout<<"So phan tu duong la: "<<dem<<endl;

cout<<"Tong cac so duong la: "<<t1<<endl;

cout<<"Trung binh cong cua day la: "<<fixed<<setprecision(2)<<(t*1.0)/(n*1.0)<<endl;

cout<<"Trung binh cac so duong la: "<<fixed<<setprecision(2)<<(t1*1.0)/(dem*1.0);

return 0;

}