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

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

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

 
 Ответить  Открыть новую тему 
> помогите решить пожалуйста, help
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Женский
Реальное имя: Таня

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


№1
Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные.

№2
Создайте действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


Показывай, что пробовала... Рассказывай, что не получилось.
Только, пожалуйста, не надо писать роман о тяжкой жизни студентки при злом преподе, который ничего не объясняет, а только ТРЕБУЕТ и ТРЕБУЕТ.

И тему переименуй в соответствии с правилами.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

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


Первая, кажется, так... smile.gif
Код

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 -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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


Цитата
№2

for i:=1 to n 
for j:=1 to m
if a[i,j] < 0 then
writeln(i,j);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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