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
28.11.2004 15:05
Tatjanka Уже ответил в "Задачи от Romario"
Tatjanka
28.11.2004 15:08
volvo Izveni,prosto ja eshe u vas v forume eshe ne vse ponimaju. Ti prosto molodets. Spasibo tebe ogromnoe.
Tatjanka
28.11.2004 15:21
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 15:28
А сейчас?
Tatjanka
28.11.2004 15:41
volvo[b]
Vse idet tolko mne nado 4tobi vivodilo elementi massiva c[10], asei4as vivodit summu
volvo
28.11.2004 15:43
Попробуй так:
Код
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
28.11.2004 15:50
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.