Nhập N và dãy N1,N2.....AN lá các số nguyên từ bàn phím sử dụng ngôn ngữ lập trình free pascal để lập trình tính Tổng các phần tử trong dãy rồi in kết quả ra màn hình? Đếm xem trong dãycos bảo nhiêu số âm rồi in kết quả ra màn hình?

yennehihi1901

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

832449803780138

uses crt;
var i,N,s,dem:integer;
A:array[1..10000] of integer;
begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
S:=0; dem:=0;
for i:=1 to N do
begin
S:=S+A[i];
if A[i]>0 then dem:=dem+1;
end;
write('Tong cac phan tu la: ',S);
writeln;
write('Co ',dem,' phan tu la so am');
readln
end.

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

hiento0425

program ct;

uses crt;

var i,n,S,d:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

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

end;

S:=0; d:=0;

for i:=1 to n do

begin

S:=S+A[i];

if A[i]<0 then d:=d+1;

end;

writeln('tong cua cac phan tu la:',S);

writeln('co',d,' phan tu la so am');

readln

end.

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

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

Mn giúp em nhaaaa🙆‍♀️❤ Có ý kiến cho rằng: Bạn không thể thay đổi được hướng gió nhưng bạn có thể thay đổi được cánh buồm. Em có đồng tình ý kiến tren không? Vì sao?

Tìm lỗi sai trong câu dưới đây 1. Look at that picture on my hand. Tell me how many people you can see.

Giúp tớ với ,tớ cần gấp........

Khổng Tử đã từng nói: Học mà không nghĩ thì mê hoặc. Điều đó cho thấy thói quen suy nghĩ đóng vai trò vô cùng quan trọng trong c/sống. Anh chị có đồng tình với quan điểm trên không. Hãy viết 1 bài văn ngắn bàn về ý nghĩa của suy nghĩ. Mn giúp em em cảm ơn nhìu nạ 🙆‍♀️❤

Mn giúp em với ạ Đề: Hoocmon động vật có những đặc điểm khác biệt với hoocmon thực vật? Kể tên và nêu vai trò của một số hoocmon ở động vậy và thực vật

Giúp em với mn ơi cảm ơn cảm ơn

giúp mk cái

các bạn cho mình hỏi từ 11 đến 17

từ câu chuyện nhân vật rô-bin-xơn trong đoạn trích rô-bin-xơn ngoài đảo hoang của đi phô em rút ra đc bài học gì cho bản thân mik Ai giải hộ với hứa cho 5 sao

Câu hỏi của bạn là gì? Tìm avatar bnt Đặt câu hỏiicon add iconicon Tiếng AnhLớp 910 điểm thongtintrang - 4 phút trước Giúp em với jsshsbdbbsbsbebebdbsbebdbhdeh imagerotate Chi tiết Bỏ theo dõi reportBáo vi phạm Sửa XEM GIẢI BÀI TẬP SGK ANH 9 - TẠI ĐÂY >> Học trực tuyến lớp 9, luyện vào lớp 10, mọi lúc, mọi nơi môn Toán, Văn, Anh, Lý, Hóa, Sinh, Sử, Địa cùng các Thầy, Cô giáo giỏi nổi tiếng, dạy hay, dễ hiểu, dày dặn kinh nghiệm tại Tuyensinh247.com 1. A. worked B. wanted C. stopped D. asked 2. A. garbage B. standard C. solar C. show C. stops D. Junar 3. A. how B. town D. power 4. A. protects B. misses D. breaks II. Chọn phương án đúng nhất để hoàn thành các câu sau đây: (2.0 đ) that people have spoiled this area. 1. I'm B. disappointment C. disappointed the light bulb. It has broken. B. to replace It's better for your health. B. slowly D. disappointing A. disappoint 2. We suggest. A. replace 3. You should eat C. replacing D. replaced C. slower D. slowest A. slow 4. Thank you very much for the present, B. whom you sent me. C. which D. where A. who troes and flowers in our school yard

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