Nhập vào một dãy n số nguyên A[1].A[2]...A[n]. hãy tính a. Tổng các phần tử của dãy, b. Số lượng các số hạng dương và tổng của các số hạng dương.

1533904050085622

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

annanguyen110823

uses crt;

var a:array[1..100000] of longint;

i,n,s,t,d:longint;

begin

clrscr;

readln(n);

for i:=1 to n do read(a[i]);

s:=0;t:=0;d:=0;

for i:=1 to n do

begin s:=s+a[i];

if a[i]>0 then begin d:=d+1;

t:=t+a[i];

end;

writeln('a, ',s);

write('b, ',d,' ',t);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Anhyeuemvocung0806

program bai_giai;

uses crt;

var A:array[1..1000] of integer;

n,i,t,d,td:integer;

begin

clrscr;

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

t:=0; d:=0; td:=0;

for i:=1 to n do

begin

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

t:=t+A[i];

if A[i]>0 then

begin

d:=d+1;

td:=td+A[i];

end;

writeln('a. Tong cac phan tu cua day la: ',t);

writeln('b. Co ',d,' so duong va tong cua chung la: ',td);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giair thích vì sao sông ngòi nam âu lại đầy nước vào mùa đông

Giải giúp em bài 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20.

giúp mik với mik đang cần gấp nha cảm ơn

Vẽ anime/chibi thất vọng NL: Haizz, tại sao trong Hoidap lại có những người thích buff, spam v? Nhóm tôi chỉ muốn đua top công bằng, bn có cần lm thế ko?

5h mink phải học hôm nay r giúp mink với mink đg rất cần ạ

Tìm số nghịch đảo của số: a/ $\frac{1}{5.7}$ + $\frac{1}{7.9}$ + $\frac{1}{9.11}$ +...+ $\frac{1}{63.65}$ b/ (1-$\frac{1}{2^{2} }$ ) . (1-$\frac{1}{ 3^{2} }$) · ... ·(1- $\frac{1}{10^{2}}$)

Giup minh voi cam onnn rat nhieu a

Làm hộ mình đi mình sẽ vote cho 5 sao luôn

đặt câu giúp mk với các từ - underwater - high - speed train - drive - ride - wind power bus - electric bicycle - skytrain - traffic jam -traffic accident - sky safety system - means of transport - teachnology - decrease - segway = CÁC BẠN CÓ THỂ 1 CÂU DÙNG 2,3 TỪ VÀ DÙNG GOOGLE DỊCH

Em hãy giải thích nội dung lời khuyên của Lê-nin: Học, học nữa, học mãi. Liên hệ với tình hình học tập của một số bạn học sinh hiện nay và rút ra bài học cho bản thân. Giúp mik với !!!

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến