Bài 3. Chương trình máy tính và dữ liệu

0o0 Nhok kawaii 0o0

Viết chương trình nhập vào mảng A, in ra đoạn con có tổng nhỏ nhất gồm m phần tử, m nhập từ bàn phím(pascal )

Nguyễn Chơn Nhân
26 tháng 11 2019 lúc 10:18

var n,m,i,j:longint;a:array[1..1000000] of int64;

s,min:int64;

begin

readln(n,m);min:=high(int64);

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

for i:=1 to n-m+1 do

begin

s:=0;

for j:=i to i+m-1 do s:=s+a[i];

if s<min then min:=s;

end;

writeln(min);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
25 tháng 11 2019 lúc 20:06

bạn cho một cái text đi bạn

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
25 tháng 11 2019 lúc 23:56

const fi='tongmin.inp';
fo='tongmin.out';
var a:array[1..100]of integer;
n,m,i,j,k:byte;
s,min:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,m);
for i:=1 to n do
begin
read(f1,a[i]);
end;
{---------------xuat--------------------}
for i:=1 to n do write(f2,a[i]:4);
{---------------------------------------}
writeln(f2);
k:=1;
min:=0;
for i:=1 to m do min:=min+a[i];
for i:=2 to n-m+1 do
begin
s:=0;
for j:=i to i+m-1 do
s:=s+a[j];
if s<min then begin
min:=s;
k:=i;
end;
end;
writeln(f2,'day con co tong nho nhat la: ');
for i:=k to k+m-1 do write(f2,a[i]:4);
close(f1);
close(f2);
end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
26 tháng 11 2019 lúc 12:04

uses crt;
var a:array[1..100]of integer;
n,m,i,j,k:byte;
s,min:integer;
begin
clrscr;
write('nhap chieu dai day so:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------xuat--------------------}
for i:=1 to n do write(a[i]:4);
{---------------------------------------}
writeln;
write('nhap do dai day con:'); readln(m);
k:=1;
min:=0;
for i:=1 to m do min:=min+a[i];
for i:=2 to n-m+1 do
begin
s:=0;
for j:=i to i+m-1 do
s:=s+a[j];
if s<min then begin
min:=s;
k:=i;
end;
end;
writeln('day con co tong nho nhat la: ');
for i:=k to k+m-1 do write(a[i]:4);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Nguyễn Thị Như Ý
Xem chi tiết
nguyễn thùy linh
Xem chi tiết
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Nguyễn Lê Uyên Trang
Xem chi tiết
37-8.7 Anh thư
Xem chi tiết
Dung Nguyễn
Xem chi tiết
Võ Ngọc Đan Kha
Xem chi tiết
Xuân An Lê Nguyễn
Xem chi tiết