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

[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)

[Tatjanka]

volvo
Ja pravilno napisala, ato u menja ne idet 4to-to

Код

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
  c[i] := a[i] + b[11 - i];
end.

Сообщение отредактировано: volvo - 28.11.2004 11:28