Формирование массива...

[unnamed160]

Pascal - Даны 2 массива A(m) и B(m), где m<12. Массивы A и B считываются из заранее подготовленного файла lab1.dat. Задание:
сформировать массив C по правилу:

C1=Bm+A1
C2=Bm-1+A2
.................
Cm=B1+Am

[min@y™]

И? чочочочочо?

[Bugrimov]

Поддерживаю min@y™.
Что не получается?

[unnamed160]

Вот что было:

program lab3;
uses crt;
const nmax=12;
type mas=array[1..nmax] of real;
var i,m,n:integer;
a:mas;
b:mas;
c:mas;
Aa,Bb,Cc:text;
begin
clrscr;
assign(Aa,'lab3.dat');
assign(Bb,'lab3.res');
reset(Aa);
reset(Bb);
m:=10;
for i:=1 to m do read (Aa,A[i]);
for i:=1 to m do read (Bb,B[i]);
assign(Cc,'lab3.res');
rewrite(Cc);
for i:=1 to m do
begin
if i=0 then C[i]:=?????
end;
writeln('mas A');
for i:=1 to m do
begin
write(Cc,A[i]:7:2);
write(A[i]:7:2);
end;
writeln(Cc);
writeln('-------------------');
writeln('mas B');
for i:=1 to m do
begin
write(Cc,B[i]:7:2);
???

т.е. где "if i=0 then C[i]:=?????" нужно дописать, а внизу докончить код, что к сожалению у меня не получается

[Bugrimov]

Скидывайте файл *.dat с массивами...

[min@y™]

Вот что было:

Бонус за прилежание!

[Bugrimov]

Что-то получилось... Будут вопросы, пишите..

program arrays;
uses 
  crt;
const 
  M = 11;

type
  mass = array[1..M] of real;
  
var
  A, B, C                 : mass;
  fileInput, fileOutput   : text;
  i, j                    : integer;

begin
  assign(fileInput, 'text.dat');
  reset(fileInput);
  
  i := 1;
  j := 1;
  while not EOF(fileInput) do
  begin
    if (i <= M) then
    begin
      read(fileInput, A[i]);
      Inc(i);
    end
    else
    begin
      read(fileInput, B[j]);
      Inc(j);
    end;
  end;
  
  i := 1;
  j := M;
  
  while (i <> M) do
  begin
    C[i] := B[j] + A[i];
    Inc(i);
    Dec(j);
  end;
  close(fileInput);
  
  assign(fileOutput,'output.dat');
  rewrite(fileOutput);
  for i := 1 to M do
  begin
    write(fileOutput,'[');
    write(fileOutput,C[i]);
    write(fileOutput,']');
  end;
  close(fileOutput);
end.

[nikita33321]

Так можно формировать массив "С" ?

for i:=1 to m do
  begin
     c[i] := b[m-i+1]+a[i];
  end;

[unnamed160]

Всем спасибо за помощь, сделал)