IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на массивы, Массивы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


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)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Tatjanka
Уже ответил в "Задачи от Romario"
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


volvo
Izveni,prosto ja eshe u vas v forume eshe ne vse ponimaju.
Ti prosto molodets.
Spasibo tebe ogromnoe.
smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






А сейчас?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


volvo[b]

Vse idet tolko mne nado 4tobi vivodilo elementi massiva c[10], asei4as vivodit summu
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Попробуй так:
Код

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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 1:02
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name