паскаль l помогите доделать задачу по одномерн массиву

[eoln]

program prinerpenl;
const n=17;
type mas1= array [1..n] of integer;

const An :mas1=(1,5,7,8,5,3, ...);// n цифр и в 3-х других тоже
Bv: mas1=(цифры);
Cn: mas1=(цифры);
Dv: mas1=(цифры);

Var d,b : mas1;
I :integer;
Min :word;
t: text;

Begin

Min:=65535;

For i:=1 to n do begin
B[i]:=An[i]+Bv[i]; {этого я не пойму - почему складываем нефть и воду}
Write(‘1u2=’ ,b[i],' ');
End;

writeln;//для красоты

For i:=1 to n do begin
d[i]:=Cn[i]+Dv[i];
Write(‘3u4=’ ,d[i],' ');
End;

for i:=1 to n do If B[i]<min then min:=B[i];
Writeln ( 'min znachenie = ', min);

assign(t, 'file_name.txt');
rewrite(t);
for I := 1 to n do writeln(t, B[i]);
writeln(t, 'min znachenie = ',min);
close(t);

readln

End.

[-=<[Evklidd]>=-]

to eoln: используй пожалста тег для кода.

Сообщение от eoln

assign(t, 'file_name.txt');
rewrite(t);
for I := 1 to n do writeln(t, B[i]);
writeln(t, 'min znachenie = ',min);
close(t);

readln

1) надо добавить еще один цикл для массива d
2) после readln нужна точка с запятой:

assign(t, 'file_name.txt'); 
rewrite(t); 
for I := 1 to n do 
writeln(t, B[i]); 
for i:= 1 to n do
writeln(t, D[i]);
writeln(t, 'min znachenie = ',min); 
close(t);

readln;

[eoln]

Сообщение от braza

распечатать минимальное значение ежемесячного отбора по нефти скважины 1

Я думал только первую скважину надо.
А по счёт "readln;", то перед "End" точку с запятой можно не ставить

[braza]

Сообщение от eoln

For i:=1 to n do begin
B[i]:=An[i]+Bv[i]; {этого я не пойму - почему складываем нефть и воду}
Write(‘1u2=’ ,b[i],' ');
End;

да здесь не так надо, как мне записать например накопленную добычу по нефти у первой скважины?

[eoln]

Подсчёт воды и нефти во всех скважинах и вывод на экран.
В файл пишем общие данные о воде и нефти в обоих скважинах и минимальное значение в первой скважине

program prinerpenl;
const n=17;
type mas1= array [1..n] of integer;

const An :mas1=(1,5,7,8,5,3, ...);// n цифр и в 3-х других тоже
Bv: mas1=(цифры);
Cn: mas1=(цифры);
Dv: mas1=(цифры);

Var a, b, c, d : longint;
I :integer;
Min :word;
t: text;

Begin

Min:=65535;
A:=0; B:=0; C:=0; D:=0;

For i:=1 to n do 
  A:=A+An[i]; {складываем всю нефть в первой скважине}
Writeln(‘first neft = ’ ,a);

For i:=1 to n do
  C:=C+Cn[i]; {складываем всю нефть во второй скважине}
Writeln(second neft = ’ ,c);

For i:=1 to n do 
  B:=B+Bv[i]; {складываем всю воду в первой скважине}
Writeln(‘first voda = ’ ,b);

For i:=1 to n do
  D:=D+Dv[i]; {складываем всю воду во второй скважине}
Writeln(second voda = ’ ,d);

for i:=1 to n do 
  If An[i]<min then min:=An[i];
Writeln ( 'min znachenie = ', min);

assign(t, 'file_name.txt'); 
rewrite(t); 
  writeln(t,'vsego neft 1 = ',A);  
  writeln(t,'vsego voda 1 = ',B);
  writeln(t,'vsego neft 2 = ',C);
  writeln(t,'vsego voda 2 = ',D);
  writeln(t,'min znach 1 = ',min);
close(t);

readln 

End.

[braza]

Спасибо большое! я наконец то понял и разобрался с этой задачей