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.

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

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

loading...  

22 tháng 4 2023

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

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)

 
24 tháng 4 2023

giúp mình với

24 tháng 4 2023

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

i,n,d:integer;

sd,s:longint;

Begin

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

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

For i:=1 to n do

If a[i] > 0 then

Begin

d:=d+1;

sd:=sd+a[i];

End;

Writeln('Tong cac so vua nhap la ',s);

Write('Co ',d,' so nguyen duong va tong cua chung la ',sd);

Readln

End.

14 tháng 5 2021

program tongduong;

uses crt;

var a:array[1..100] of integer;n,i,s:integer;

begin

clrscr;

s:=0;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;

for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];

write(' Tong cac so duong trong day la',s);

readln

end.

Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<250);

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.