Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Quỳnh Anh

Cho tệp SO.INP có 2 dòng: dòng 1 chứa số nguyên N (N_<100) và dòng 2 dãy N số nguyên a1,a2,.. aN. Ciết chương trình đưa ra tệp SO.OUT

a. Các số lẻ trong dãy

b. Số lượng các số lẻ trong dãy

c. Số lượng các số dương trong dãy. d. Các số dương trong dãy

Nguyễn Lê Phước Thịnh
7 tháng 6 2020 lúc 8:53

const fi='so.inp';
fo='so.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
writeln(f2,'Cac so le trong day la: ');
dem:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
write(f2,a[i]:4);
dem:=dem+1;
end;
writeln(f2);
writeln(f2,'So luong cac so le trong day la: ',dem);
writeln(f2,'Cac so duong trong day la: ');
dem1:=0;
for i:=1 to n do
if a[i]>0 then
begin
write(f2,a[i]:4);
dem1:=dem1+1;
end;
writeln(f2);
writeln(f2,'So luong cac so duong trong day la: ',dem1);
close(f1);
close(f2);
end.

Minh Lệ
7 tháng 6 2020 lúc 9:30

Program HOC24;

const fi='SO.INP';

fo='SO.OUT';

var f: text;

i,n,d,d1: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

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

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do

if a[i] mod 2<>0 then

begin

write(f,i,' ');

d:=d+1;

end;

writeln(f);

writeln(f,d);

d1:=0;

for i:=1 to n do

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

writeln(f,d1);

for i:=1 to n do

if a[i]>0 then write(f,a[i],' ');

close(f);

end;

begin

ip;

out;

end.


Các câu hỏi tương tự
Ngọc Diệp
Xem chi tiết
Mạnh Cường Đào Huỳnh
Xem chi tiết
Lê Thị Hà Giang
Xem chi tiết
Đặng Công
Xem chi tiết
ádfg
Xem chi tiết
Bùi Thị Ngọc
Xem chi tiết
Đặng Công
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
35.Nguyễn Anh Tú
Xem chi tiết