K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],dem,t;

cin>>n;

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

cin>>A[i];

dem=0; t=0;

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

if (A[i]%2==0) dem++;

else t+=A[i];

cout<<dem<<endl;

cout<<t;

return 0;

}

17 tháng 5 2021

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

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

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

7 tháng 6 2021

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.

22 tháng 4 2023

program TongSoChanTrongDay;

var

      n, i, tong: integer;

      a: array[1..100] of integer;

begin

      tong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

                  tong := tong + a[i];

      end;

      writeln('Tong cac phan tu chan trong day la: ', tong);

      readln;

end.

3 tháng 5

fgfgfgfgfgfggfgfgfggggfgf

9 tháng 4 2023

program tinh_toan_day_so;

const

     MAX = 1000;

var

     a: array[1..MAX] of integer;

     n, i, tong, tong_duong, tong_am, tong_chan, tong_le, max, min, temp: integer;

begin

     // Nhập dãy số và giá trị từng phần tử của dãy

     write('Nhập số phần tử của dãy: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhập phần tử thứ ', i, ': ');

          readln(a[i]);

     end;

     // Xuất giá trị của dãy vừa nhập

     writeln('Dãy số vừa nhập là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     // Tính tổng các phần tử của dãy

     tong := 0;

     for i := 1 to n do

     begin

          tong := tong + a[i];

     end;

     writeln('Tổng các phần tử của dãy là: ', tong);

     // Tìm giá trị Max, Min của dãy

     max := a[1];

     min := a[1];

     for i := 2 to n do

     begin

          if a[i] > max then

          begin

               max := a[i];

          end;

          if a[i] < min then

          begin

               min := a[i];

          end;

     end;

     writeln('Phần tử lớn nhất của dãy là: ', max);

     writeln('Phần tử nhỏ nhất của dãy là: ', min);

     // Tính tổng các phần tử dương, âm, chẵn, lẻ của dãy

     tong_duong := 0;

     tong_am := 0;

     tong_chan := 0;

     tong_le := 0;

     for i := 1 to n do

     begin

          if a[i] > 0 then

          begin

               tong_duong := tong_duong + a[i];

          end

          else

          begin

               tong_am := tong_am + a[i];

          end;

          if a[i] mod 2 = 0 then

          begin

               tong_chan := tong_chan + a[i];

          end

          else

          begin

               tong_le := tong_le + a[i];

          end;

     end;

     writeln('Tổng các phần tử dương của dãy là: ', tong_duong);

     writeln('Tổng các phần tử âm của dãy là: ', tong_am);

     writeln('Tổng các phần tử chẵn của dãy là: ', tong_chan);

     writeln('Tổng các phần tử lẻ của dãy là: ', tong_le);

     // Sắp xếp các phần tử của dãy theo thứ tự giảm dần

     for i := 1 to n-1 do

     begin

          for j := i+1 to n do

          begin

               if a[i] < a[j] then

               begin

                    temp := a[i];

                    a[i] := a[j];

                    a[j] := temp;

               end;

          end;

     end;

     writeln('Dãy số sau khi được sắp xếp giảm dần là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     // Sắp xếp các phần tử của dãy theo thứ tự tăng dần

     for i := 1 to n-1 do

     begin

     for j := i+1 to n do

     begin

          if a[i] > a[j] then

               begin

                    temp := a[i];

                    a[i] := a[j];

                    a[j] := temp;

               end;

          end;

     end;

     writeln('Dãy số sau khi được sắp xếp tăng dần là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     readln;

end.

25 tháng 12 2023

rất dài nha bạn:


 

program XuLyDaySo;

var
  N, i, soNguyen: integer;
  daySo: array of integer;

procedure NhapDaySo(var daySo: array of integer; N: integer);
var
  i: integer;
begin
  SetLength(daySo, N);
  for i := 0 to N - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(daySo[i]);
  end;
end;

procedure XuatDaySo(daySo: array of integer);
var
  i: integer;
begin
  writeln('Danh sach cac phan tu trong day:');
  for i := 0 to Length(daySo) - 1 do
    write(daySo[i], ' ');
  writeln;
end;

function TinhTongDaySo(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    tong := tong + daySo[i];
  TinhTongDaySo := tong;
end;

procedure TimMaxMin(daySo: array of integer; var Max, Min: integer);
var
  i: integer;
begin
  Max := daySo[0];
  Min := daySo[0];
  for i := 1 to Length(daySo) - 1 do
  begin
    if daySo[i] > Max then
      Max := daySo[i];
    if daySo[i] < Min then
      Min := daySo[i];
  end;
end;

function TinhTongDuong(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] > 0 then
      tong := tong + daySo[i];
  TinhTongDuong := tong;
end;

function TinhTongAm(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] < 0 then
      tong := tong + daySo[i];
  TinhTongAm := tong;
end;

function TinhTongChan(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] mod 2 = 0 then
      tong := tong + daySo[i];
  TinhTongChan := tong;
end;

function TinhTongLe(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] mod 2 <> 0 then
      tong := tong + daySo[i];
  TinhTongLe := tong;
end;

procedure SapXepGiamDan(var daySo: array of integer);
var
  i, j, temp: integer;
begin
  for i := 0 to Length(daySo) - 2 do
    for j := i + 1 to Length(daySo) - 1 do
      if daySo[i] < daySo[j] then
      begin
        temp := daySo[i];
        daySo[i] := daySo[j];
        daySo[j] := temp;
      end;
end;

procedure SapXepTangDan(var daySo: array of integer);
var
  i, j, temp: integer;
begin
  for i := 0 to Length(daySo) - 2 do
    for j := i + 1 to Length(daySo) - 1 do
      if daySo[i] > daySo[j] then
      begin
        temp := daySo[i];
        daySo[i] := daySo[j];
        daySo[j] := temp;
      end;
end;

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

  // Nhập dãy số
  NhapDaySo(daySo, N);

  // Xuất dãy số
  XuatDaySo(daySo);

  // Tính tổng dãy số
  writeln('Tong cac phan tu cua day: ', TinhTongDaySo(daySo));

  // Tìm Max, Min
  var Max, Min: integer;
  TimMaxMin(daySo, Max, Min);
  writeln('Gia tri lon nhat trong day: ', Max);
  writeln('Gia tri nho nhat trong day: ', Min);

  // Tính tổng các phần tử dương
  writeln('Tong cac phan tu duong cua day: ', TinhTongDuong(daySo));

  // Tính tổng các phần tử âm
  writeln('Tong cac phan tu am cua day: ', TinhTongAm(daySo));

  // Tính tổng các phần tử chẵn
  writeln('Tong cac phan tu chan cua day: ', TinhTongChan(daySo));

  // Tính tổng các phần tử lẻ
  writeln('Tong cac phan tu le cua day: ', TinhTongLe(daySo));

  // Sắp xếp giảm dần
  SapXepGiamDan(daySo);
  writeln('Day sau khi sap xep giam dan:');
  XuatDaySo(daySo);

  // Sắp xếp tăng dần
  SapXepTangDan(daySo);
  writeln('Day sau khi sap xep tang dan:');
  XuatDaySo(daySo);

  readln;
end.

8 tháng 5 2023

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua day A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Day so vua nhap la:');

      for i := 1 to N do

            write(A[i], ' ');

      writeln;

      sum := 0;

      for i := 1 to N do

            if A[i] mod 2 = 0 then

                  sum := sum + A[i];

      writeln('Tong cac phan tu chan trong day la: ', sum);

      readln;

end.

8 tháng 5 2023

cảm ơn bạn ạ

 

29 tháng 7 2023

đitf

23 tháng 3 2023

program tinh_tong;

uses crt;

var i,N:byte;

     S:integer;

begin

        writeln('Nhap so N='); readln(N);

       i:=1;  S:=0;

        while i<=N do

            begin

               if (i mod 3=0) and (i mod 2=1) then S:=S+i;

               i:=i+1;

            end;

        writeln('Tong S=',S);

        readln

end.

 

 

 

nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha

 

23 tháng 3 2023

Bạn khai báo thư viện nhưng không sử dụng -> nên bị lỗi chương trình nhé

5 tháng 5 2023

Bài 5:

Var a:array:[1..1000] of integer;

i,n,max:integer;

sc, sl:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

If a[i] mod 2 = 0 then sc:=sc+b[i];

If a[i] mod 2 <> 0 then sl:=sl+a[i];

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

5 tháng 5 2023

Xin cảm ơnloading...