Viết ct pascal nhập vào một dãy gồm N phần tưáu đó: 1) tính tổng giá trị các phần tử của dãy. 2) tính tổng giá trị dương các phần tử của dãy. 3) tính giá trị âm lớn nhất của dãy.

gohan201001

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

phungmap

uses crt;
var a:array[1..10000] of longint;
n,i,s,sd,sa:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
inc(s,a[i]);
if a[i]>0 then inc(sd,a[i]);
if a[i]<0 then inc(sa,a[i]);
end;
writeln('Tong cac phan tu: ',s);
writeln('Tong cac phan tu duong: ',sd);
write('Tong cac phan tu am: ',sa);
readln;
end.

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

hungnguyenak7

program bai_giai;
uses crt;
var A:array[1..10000] of intger;
n,i,t,td,sa:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
t:=0; td:=0; sa:=0;
for i:=1 to n do
begin
t:=t+A[i];
if A[i]>0 then td:=td+A[i];
if A[i]<0 then
begin
if sa=0 then sa:=A[i]
else if A[i]>sa then sa:=A[i];
end;
end;
writeln('Tong: ',t);
writeln('Tong duong: ',td);
writeln('So am lon nhat: ',sa);
readln;
end.

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

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

Vẽ sơ đồ mạch điện gồm nguồn điện 2 pin, 2 bóng đèn mắc song song, 2 khóa để điều khiển 2 đèn, dây dẫn. Xác định chiều dòng điện (đánh dấu mũi tên) Giúp với ạ! Em cảm ơn!

Tả một cây ăn quả và một cây bóng mát ở sân trường Giúp mk nha mk đang cần ạ mai thi môn văn rùi ( cấm chép mạng )

Các dạng bài kiểm tra 15' unit 12

Cho mik bài tập hai tam giác đồng dạng Cảm ơn nhiều

cuộc sơ cấp của 1 máy biến thế có 4000 vòng , cuộn thứ cấp có 200 vòng . hiệu điện thế giữa hai đầu cuộn dây cấp là 220v . Tính hiệu điệm thế giữa hai đầu cuộn dây thứ cấp

Đánh máy 3 phần mở bài của bài có chí thì nên trang 49 sgk ngữ văn 7. Các bạn nhớ đánh máy và trình bày cho đẹp. Bạn nào không biết mà làm sai sẽ bị báo cáo Cảm ơn. ^^

1 người đi xe đạp trong 3 giờ. giờ thứ nhất đi đc 12km,giờ thứ 2 đi đc 18km,giờ thứ 3 đi đc quãng đường bằng nửa quảng đường đi trong 2 giờ đầu. vậy giờ thứ 3 đi đc quãng đường là?

Đầu thế kỉ VI, nhà Lương đô hộ Giao Châu chia nước ta như thế nào ?

Dùng một ấm nhôm khối lượng 300g để đun sôi 2 lít nước ở nhiệt độ $20^{o}$C thì cần cung cấp bao nhiêu nhiệt lượng ? Biết $c_{1 nước}$ = 4200J/kg.K, $c_{2 nhôm}$ =880 J/kg.K

Câu 3 Quyền khiếu nại,,tố cáo là gì Công dân đc thực hiện quyền khiếu nại tố cáo khi nào

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