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

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

Tatjanka
Уже ответил в "Задачи от Romario"

[Tatjanka]

volvo
Izveni,prosto ja eshe u vas v forume eshe ne vse ponimaju.
Ti prosto molodets.
Spasibo tebe ogromnoe.

[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

[volvo]

А сейчас?

[Tatjanka]

volvo[b]

Vse idet tolko mne nado 4tobi vivodilo elementi massiva c[10], asei4as vivodit summu

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

[Tatjanka]

volvo
Vse uraaaaaa polu4ilos.
Spasibki ogromnoe.
Teper zavtra poidu sdavat.
Mne eshe do kontsa sessii dolzni dat 2 zadanija,tak 4to ja eshe k vam vernus.
Do vstre4i.