Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на массивы
Автор: Tatjanka 28.11.2004 15:05
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.