помогите решить пожалуйста, 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]. Напечатать индексы его отрицательных элементов. |
Unconnected |
Сообщение
#2
|
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 - -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Текстовая версия | 25.04.2024 12:48 |