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.

23 tháng 4 2023
Để tính tổng các phần tử trong dãy, ta có thể sử dụng vòng lặp for để duyệt qua từng phần tử và cộng dồn vào một biến tổng. Ví dụ:

n = int(input("Nhap so phan tu cua day: "))

a = []

for i in range(n):

     a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))

tong = 0

for elem in a:

     tong += elem

print("Tong cua day la: ", tong)

Để đếm số lượng số âm trong dãy và tính tổng các số âm đó, ta có thể sử dụng một biến đếm để đếm số lượng số âm và một biến tổng để cộng dồn các số âm. Ví dụ:

n = int(input("Nhap so phan tu cua day: "))

a = []

for i in range(n):

     a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))

so_luong_am = 0

tong_am = 0

for elem in a:

      if elem < 0:

           so_luong_am += 1

           tong_am += elem

print("So luong so am trong day la: ", so_luong_am)

print("Tong cac so am trong day la: ", tong_am)

 
22 tháng 4 2023

program TongSoLeTrongDay;

var

      n, i, tong, dem: integer;

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

begin

      tong := 0;

      dem := 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]);

            tong := tong + a[i];

            if a[i] mod 2 <> 0 then

            begin

                  dem := dem + 1;

            end;

      end;

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

      writeln('So phan tu le trong day la: ', dem);

      readln;

end.

22 tháng 4 2023

program TongSoVaSoDuongTrongDay;

var

      n, i, tong, dem, tongDuong: integer;

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

begin

      tong := 0;

      dem := 0;

      tongDuong := 0;

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

      readln(n);

      write('Nhap day so n: ');

      for i := 1 to n do

      begin

            readln(a[i]);

            tong := tong + a[i];

            if a[i] > 0 then

            begin

                  dem := dem + 1;

                  tongDuong := tongDuong + a[i];

            end;

      end;

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

      writeln('So phan tu duong trong day la: ', dem);

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

      readln;

end.

23 tháng 4 2023

Số âm thì làm sao vậy bạn?

22 tháng 4 2023

loading...  

22 tháng 4 2023

Số lẻ thì làm sao vậy bạn?

5 tháng 4 2023

Program HOC24;

var i,m: integer;

t: longint;

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

begin

write('Nhap so phan tu M: '); readln(m);

for i:=1 to m do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to m do if a[i]<0 then t:=t+a[i];

write('Tong la: ',t);

readln

end.

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

10 tháng 5 2023

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

10 tháng 5 2023

Câu 2

Bài 5:

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

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

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

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

Readln

End.

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}