Tin học [Pascal] Nhập vào một dãy n số nguyên và đọc ra màn hình

SamNguyenxnnh

Học sinh
Thành viên
11 Tháng một 2018
91
15
36
20
Lâm Đồng
Phan Chu Trinh
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các bạn giúp mình viết chương trình làm mấy bài dưới có sử dụng Procedure với!
Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau :

1. Tổng các phần tử của dãy.
2. Số lượng các số hạng dương và tổng của các số hạng dương.
3. Trung bình cộng của cả dãy. Trung bình cộng các phần tử dương của mảng. Trung bình cộng các phần tử âm của mảng.
4. Chỉ số của số hạng dương đầu tiên của dãy.
5. Chỉ số của số hạng âm cuối cùng của dãy.
6. Số hạng lớn nhất của dãy và chỉ số của nó.
7. Số hạng âm lớn nhất của dãy và chỉ số của nó.
8. Số hạng dương nhỏ nhất của dãy và chỉ số của nó.
9. Giá trị lớn thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị lớn nhì.
10. Số lượng các số dương liên tiếp nhiều nhất.
 

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2
Thành viên
13 Tháng mười 2018
1,523
1,339
241
19
Quảng Trị
Trường TH&THCS Hải Ba
Các bạn giúp mình viết chương trình làm mấy bài dưới có sử dụng Procedure với!
Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau :

1. Tổng các phần tử của dãy.
2. Số lượng các số hạng dương và tổng của các số hạng dương.
3. Trung bình cộng của cả dãy. Trung bình cộng các phần tử dương của mảng. Trung bình cộng các phần tử âm của mảng.
4. Chỉ số của số hạng dương đầu tiên của dãy.
5. Chỉ số của số hạng âm cuối cùng của dãy.
6. Số hạng lớn nhất của dãy và chỉ số của nó.
7. Số hạng âm lớn nhất của dãy và chỉ số của nó.
8. Số hạng dương nhỏ nhất của dãy và chỉ số của nó.
9. Giá trị lớn thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị lớn nhì.
10. Số lượng các số dương liên tiếp nhiều nhất.
Làm = thủ tục thì cũng như bình thường thôi bạn
Chỉ cần đặt code của bạn vào trong đó rồi đến thân CT chình thì gọi ra là đc. Yêu cầu của bn dài quá.
 

SamNguyenxnnh

Học sinh
Thành viên
11 Tháng một 2018
91
15
36
20
Lâm Đồng
Phan Chu Trinh
Làm = thủ tục thì cũng như bình thường thôi bạn
Chỉ cần đặt code của bạn vào trong đó rồi đến thân CT chình thì gọi ra là đc. Yêu cầu của bn dài quá.
Mình làm bài 2 chưa in ra được số nguyên dương, bạn giúp mình sửa code với nhé! Cảm ơn bạn trước!
const fi='nopain.inp';
fo='nogain.out';
var f,g:text;
n,i,s,nbr:integer;
a:array[1..100] of integer;
Procedure Docfile;
begin
n:=1;
readln(f,s);
while not eof(f) do
begin
read(f,nbr);
a[n]:=nbr;
inc(n);
end;
writeln(g,s);
End;
Procedure Tongpt;
begin
s:=0;
for i:=1 to n do s:=s+a;
write(g,s)
End;
Begin
assign(f,fi); reset(f);
assign(g,fo); rewrite(g);
Docfile;
Tongpt;
close(f); close(g);
End.
 

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2
Thành viên
13 Tháng mười 2018
1,523
1,339
241
19
Quảng Trị
Trường TH&THCS Hải Ba
Mình làm bài 2 chưa in ra được số nguyên dương, bạn giúp mình sửa code với nhé! Cảm ơn bạn trước!
const fi='nopain.inp';
fo='nogain.out';
var f,g:text;
n,i,s,nbr:integer;
a:array[1..100] of integer;
Procedure Docfile;
begin
n:=1;
readln(f,s);
while not eof(f) do
begin
read(f,nbr);
a[n]:=nbr;
inc(n);
end;
writeln(g,s);
End;
Procedure Tongpt;
begin
s:=0;
for i:=1 to n do s:=s+a;
write(g,s)
End;
Begin
assign(f,fi); reset(f);
assign(g,fo); rewrite(g);
Docfile;
Tongpt;
close(f); close(g);
End.
upload_2019-3-16_14-50-40.png
upload_2019-3-16_14-51-5.png
 
  • Like
Reactions: SamNguyenxnnh
Top Bottom