Задача на массивы, Массивы Опции

[Tatjanka]

Eshe u menja ostalas odna zada4ka s massivom.
Esli ja vas ne o4en obremenjaju, to pomogite plz.

dan A(10) i B(10) 4islovoi massiv. Naiti novie elementi massiva C(10) , esli
(A1+B10,A2+B9....A10+B1)

[volvo]

Попробуй так:

Код

program massiv;
var i: integer;
a, b, c: array[1 .. 10] of integer;
begin
writeln('Vvedite massiv a iz 10 elementov');
for i:=1 to 10 do readln(a[i]);
writeln('Vveditemassiv b iz 10 elementov');
for i := 1 to 10 do readln(B[i]);

for i := 1 to 10 do
 Begin
   c[i] := a[i] + b[11 - i];
   write(c[i]:5);
 End;
end.