Quảng cáo
1 câu trả lời 443
program BaiGiai;
uses crt;
var N,i,S,D:Longint;
A:array[1..143] of Longint;
begin
clrscr;
write('Ban can nhap N=');
Readln(N);
writeln('Hay nhap phan tu cho mang:');
{In va nhap pt}
for i:=1 to N do
begin
write('Nhap A[',i,']=');
readln(A[i]);
end;
writeln;
writeln('In phan tu:');
for i:=1 to N do
write(A[i],' ');
writeln; writeln;
{Tinh tong}
for i:=1 to N do
S:=S+A[i];
writeln('Tong cac phan tu cua mang la ',S,'.');
writeln;
{Dem so duong}
for i:=1 to N do
if A[i]>=0 then D:=D+1;
writeln('Co tat ca la ',D,' phan tu la so duong.');
readln;
end.
uses crt;
var N,i,S,D:Longint;
A:array[1..143] of Longint;
begin
clrscr;
write('Ban can nhap N=');
Readln(N);
writeln('Hay nhap phan tu cho mang:');
{In va nhap pt}
for i:=1 to N do
begin
write('Nhap A[',i,']=');
readln(A[i]);
end;
writeln;
writeln('In phan tu:');
for i:=1 to N do
write(A[i],' ');
writeln; writeln;
{Tinh tong}
for i:=1 to N do
S:=S+A[i];
writeln('Tong cac phan tu cua mang la ',S,'.');
writeln;
{Dem so duong}
for i:=1 to N do
if A[i]>=0 then D:=D+1;
writeln('Co tat ca la ',D,' phan tu la so duong.');
readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
44988 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34460
-
Đã trả lời bởi chuyên gia
30241
-
Hỏi từ APP VIETJACK27169
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
21825
Thành viên hăng hái nhất trong tuần
-
보고 싶어요😢
1815 điểm
-
𝘳𝘺𝘯.𝘭𝘦𝘦ッ
305 điểm
-
우옌 ✨
170 điểm
-
Nguyễn Minh Kiệt
45 điểm
-
Kim Dan 20 điểm
-
Ngọc Nguyễn 20 điểm
-
Yanny 20 điểm
-
Mai Nguyễn Thị Thu 20 điểm
-
nhuu ye 20 điểm
-
Linh Nguyễn 20 điểm
-
Bacy Sam 20 điểm
-
Thảo vy Lê 20 điểm
-
Hong Bui 20 điểm
-
Ngluyn Hii 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8254
-
3 năm trước7767
-
3 năm trước6590
-
3 năm trước6481
-
3 năm trước6307
Gửi báo cáo thành công!
