Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
smile.gif
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
А сейчас?
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.