помогите решить пожалуйста, help |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
помогите решить пожалуйста, help |
Tanechka |
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Женский Реальное имя: Таня Репутация: 0 |
№1
Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные. №2 Создайте действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов. |
мисс_граффити |
Сообщение
#2
|
просто человек Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
Показывай, что пробовала... Рассказывай, что не получилось.
Только, пожалуйста, не надо писать роман о тяжкой жизни студентки при злом преподе, который ничего не объясняет, а только ТРЕБУЕТ и ТРЕБУЕТ. И тему переименуй в соответствии с правилами. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
Unconnected |
Сообщение
#3
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Первая, кажется, так...
Код Program tables; uses crt; const a=15;b=30; var mas:array[1..a] of integer; mas2:array[1..a] of integer; mas3:array[1..b] of integer; x,y,z:integer; begin clrscr; randomize; y:=1; z:=1; for x:=1 to a do begin mas[x]:=random(20)+1; mas2[x]:=random(20)+1; end; for x:=1 to b do begin if x mod 2 = 0 then begin mas3[x]:=mas[y]; inc(y); end else begin mas3[x]:=mas2[z]; inc(z); end; end; for x:=1 to b do writeln(mas3[x]); readln; end. Сообщение отредактировано: Unconnected - -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Ozzя |
Сообщение
#4
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата №2 for i:=1 to n |
Текстовая версия | 11.10.2024 13:30 |