помогите решить пожалуйста, help Опции

[Tanechka]

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

№2
Создайте действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов.

[мисс_граффити]

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

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

[Unconnected]

Первая, кажется, так...

Код

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 - 21.07.2008 17:12

[Ozzя]

№2

for i:=1 to n 
  for j:=1 to m
     if a[i,j] < 0 then
        writeln(i,j);